/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Telecom / Mews_2.4.2 / Mews 2.4.2

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 4d 65 77 73 20 32 | 2e 34 2e 32 00 00 00 00 |..Mews 2|.4.2....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 01 24 c0 00 | 00 af 2e 9f b0 90 5a a9 |.....$..|......Z.|
|00000060| e8 4d 11 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.M......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ca cc 00 00 |........|........|
|00000080| 00 00 38 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..8.STAK|........|
|00000090| 00 00 00 0a 00 01 24 c0 | 00 00 38 00 00 00 00 00 |......$.|..8.....|
|000000a0| 00 00 00 01 00 00 00 02 | 00 00 0a e3 00 00 00 0a |........|........|
|000000b0| 00 00 09 76 00 00 10 72 | 00 00 00 00 00 00 00 00 |...v...r|........|
|000000c0| 00 00 08 63 00 00 00 00 | 00 05 00 00 50 00 00 00 |...c....|....P...|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 01 20 80 00 02 10 80 01 | 02 10 80 01 02 10 80 01 |. ......|........|
|000000f0| a3 f7 71 49 00 00 00 00 | 00 00 00 00 00 00 00 00 |..qI....|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 15 d8 00 00 14 c7 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 20 4d 65 77 73 20 | 69 73 20 61 20 6d 61 69 |-- Mews |is a mai|
|00000690| 6c 20 61 6e 64 20 6e 65 | 77 73 20 68 61 6e 64 6c |l and ne|ws handl|
|000006a0| 65 72 20 75 74 69 6c 69 | 73 69 6e 67 20 4d 61 63 |er utili|sing Mac|
|000006b0| 54 43 50 0d 2d 2d 20 a9 | 20 31 39 39 30 20 20 43 |TCP.-- .| 1990  C|
|000006c0| 68 72 69 73 20 4b 65 65 | 6e 2c 20 43 68 61 72 6c |hris Kee|n, Charl|
|000006d0| 65 73 20 4c 61 6b 6f 73 | 2c 20 55 6e 69 76 65 72 |es Lakos|, Univer|
|000006e0| 73 69 74 79 20 6f 66 20 | 54 61 73 6d 61 6e 69 61 |sity of |Tasmania|
|000006f0| 0d 2d 2d 20 54 68 65 20 | 73 74 61 63 6b 20 69 73 |.-- The |stack is|
|00000700| 20 66 72 65 65 20 66 6f | 72 20 75 73 65 2c 20 62 | free fo|r use, b|
|00000710| 75 74 20 63 72 65 64 69 | 74 65 64 20 61 73 20 69 |ut credi|ted as i|
|00000720| 6e 64 69 63 61 74 65 64 | 20 68 65 72 65 2e 0d 0d |ndicated| here...|
|00000730| 2d 2d 20 4d 65 77 73 20 | 77 61 73 20 69 6e 73 70 |-- Mews |was insp|
|00000740| 69 72 65 64 20 62 79 20 | 50 4f 50 4d 61 69 6c 20 |ired by |POPMail |
|00000750| a9 20 31 39 38 39 20 55 | 6e 69 76 65 72 73 69 74 |. 1989 U|niversit|
|00000760| 79 20 6f 66 20 4d 69 6e | 6e 65 73 6f 74 61 0d 2d |y of Min|nesota.-|
|00000770| 2d 20 49 74 20 77 61 73 | 20 72 65 77 72 69 74 74 |- It was| rewritt|
|00000780| 65 6e 20 66 6f 72 20 61 | 20 63 6f 6e 73 69 73 74 |en for a| consist|
|00000790| 65 6e 74 20 69 6e 74 65 | 72 66 61 63 65 20 66 6f |ent inte|rface fo|
|000007a0| 72 20 62 6f 74 68 20 6d | 61 69 6c 20 26 20 6e 65 |r both m|ail & ne|
|000007b0| 77 73 0d 0d 2d 2d 20 58 | 43 4d 44 73 20 61 6e 64 |ws..-- X|CMDs and|
|000007c0| 20 58 46 43 4e 73 20 61 | 72 65 20 61 74 74 72 69 | XFCNs a|re attri|
|000007d0| 62 75 74 65 64 20 61 73 | 20 66 6f 6c 6c 6f 77 73 |buted as| follows|
|000007e0| 3a 0d 0d 2d 2d 20 54 43 | 50 4e 61 6d 65 54 6f 41 |:..-- TC|PNameToA|
|000007f0| 64 64 72 2c 20 54 43 50 | 41 63 74 69 76 65 4f 70 |ddr, TCP|ActiveOp|
|00000800| 65 6e 2c 20 54 43 50 52 | 65 6c 65 61 73 65 2c 20 |en, TCPR|elease, |
|00000810| 54 43 50 53 74 61 74 65 | 2c 20 54 43 50 53 65 6e |TCPState|, TCPSen|
|00000820| 64 2c 0d 2d 2d 20 54 43 | 50 43 68 61 72 73 41 76 |d,.-- TC|PCharsAv|
|00000830| 61 69 6c 61 62 6c 65 2c | 20 54 43 50 52 65 63 76 |ailable,| TCPRecv|
|00000840| 43 68 61 72 73 2c 20 54 | 43 50 52 65 63 76 55 70 |Chars, T|CPRecvUp|
|00000850| 54 6f 0d 2d 2d 20 20 20 | 62 79 20 48 61 72 72 79 |To.--   |by Harry|
|00000860| 20 43 68 65 73 6c 65 79 | 20 a9 20 41 70 70 6c 65 | Chesley| . Apple|
|00000870| 43 6f 6d 70 75 74 65 72 | 2c 20 49 6e 63 2e 20 31 |Computer|, Inc. 1|
|00000880| 39 38 39 0d 2d 2d 20 20 | 20 66 6f 72 20 69 6e 74 |989.--  | for int|
|00000890| 65 72 66 61 63 69 6e 67 | 20 77 69 74 68 20 4d 61 |erfacing| with Ma|
|000008a0| 63 54 43 50 0d 0d 2d 2d | 20 61 6c 70 68 61 53 6f |cTCP..--| alphaSo|
|000008b0| 72 74 28 73 74 72 69 6e | 67 2c 64 69 72 65 63 74 |rt(strin|g,direct|
|000008c0| 69 6f 6e 2c 6f 66 66 73 | 65 74 2c 64 65 6c 2c 69 |ion,offs|et,del,i|
|000008d0| 67 6e 6f 72 65 29 0d 2d | 2d 20 20 20 6f 72 69 67 |gnore).-|-   orig|
|000008e0| 69 6e 61 6c 6c 79 20 62 | 79 20 48 61 72 72 79 20 |inally b|y Harry |
|000008f0| 43 68 65 73 6c 65 79 20 | a9 20 41 70 70 6c 65 20 |Chesley |. Apple |
|00000900| 43 6f 6d 70 75 74 65 72 | 2c 20 49 6e 63 2e 20 31 |Computer|, Inc. 1|
|00000910| 39 38 39 0d 2d 2d 20 20 | 20 6d 6f 64 69 66 69 65 |989.--  | modifie|
|00000920| 64 20 62 79 20 43 68 61 | 72 6c 65 73 20 4c 61 6b |d by Cha|rles Lak|
|00000930| 6f 73 0d 2d 2d 20 20 20 | 73 6f 72 74 20 74 68 65 |os.--   |sort the|
|00000940| 20 6c 69 6e 65 73 20 6f | 66 20 74 68 65 20 73 74 | lines o|f the st|
|00000950| 72 69 6e 67 2c 20 69 6e | 20 74 68 65 20 64 69 72 |ring, in| the dir|
|00000960| 65 63 74 69 6f 6e 20 28 | 22 61 22 2f 22 64 22 29 |ection (|"a"/"d")|
|00000970| 20 67 69 76 65 6e 2c 0d | 2d 2d 20 20 20 77 69 74 | given,.|--   wit|
|00000980| 68 20 74 68 65 20 6b 65 | 79 20 73 74 61 72 74 69 |h the ke|y starti|
|00000990| 6e 67 20 61 74 20 74 68 | 65 20 6f 66 66 73 65 74 |ng at th|e offset|
|000009a0| 20 63 6f 6c 75 6d 6e 2c | 20 64 65 6c 65 74 69 6e | column,| deletin|
|000009b0| 67 20 64 75 70 6c 69 63 | 61 74 65 73 0d 2d 2d 20 |g duplic|ates.-- |
|000009c0| 20 20 28 69 66 20 64 65 | 6c 20 69 73 20 74 72 75 |  (if de|l is tru|
|000009d0| 65 29 2c 20 61 6e 64 20 | 73 6b 69 70 70 69 6e 67 |e), and |skipping|
|000009e0| 20 74 68 65 20 70 72 65 | 66 69 78 20 73 74 72 69 | the pre|fix stri|
|000009f0| 6e 67 20 69 67 6e 6f 72 | 65 0d 0d 2d 2d 20 50 61 |ng ignor|e..-- Pa|
|00000a00| 73 73 77 6f 72 64 0d 2d | 2d 20 20 20 62 79 20 4b |ssword.-|-   by K|
|00000a10| 65 76 69 6e 20 43 61 6c | 68 6f 75 6e 20 a9 20 31 |evin Cal|houn . 1|
|00000a20| 39 38 39 20 74 68 65 20 | 54 72 75 73 74 65 65 73 |989 the |Trustees|
|00000a30| 20 6f 66 20 44 61 72 74 | 6d 6f 75 74 68 20 43 6f | of Dart|mouth Co|
|00000a40| 6c 6c 65 67 65 0d 2d 2d | 20 20 20 71 75 65 72 79 |llege.--|   query|
|00000a50| 20 75 73 65 72 20 66 6f | 72 20 70 61 73 73 77 6f | user fo|r passwo|
|00000a60| 72 64 20 77 68 69 63 68 | 20 69 73 20 62 6c 61 6e |rd which| is blan|
|00000a70| 6b 65 64 20 6f 75 74 0d | 0d 2d 2d 20 68 61 72 64 |ked out.|.-- hard|
|00000a80| 63 6f 70 79 28 74 78 74 | 2c 66 6f 6e 74 2c 73 69 |copy(txt|,font,si|
|00000a90| 7a 65 2c 73 74 79 6c 65 | 2c 74 69 74 6c 65 31 2c |ze,style|,title1,|
|00000aa0| 74 69 74 6c 65 32 29 0d | 2d 2d 20 20 20 a9 20 31 |title2).|--   . 1|
|00000ab0| 39 38 38 20 62 79 20 47 | 61 72 79 20 42 6f 6e 64 |988 by G|ary Bond|
|00000ac0| 0d 2d 2d 20 20 20 70 72 | 69 6e 74 73 20 74 68 65 |.--   pr|ints the|
|00000ad0| 20 74 78 74 20 74 6f 20 | 74 68 65 20 63 75 72 72 | txt to |the curr|
|00000ae0| 65 6e 74 6c 79 20 73 65 | 6c 65 63 74 65 64 20 70 |ently se|lected p|
|00000af0| 72 69 6e 74 65 72 0d 0d | 2d 2d 20 4c 69 6e 65 61 |rinter..|-- Linea|
|00000b00| 72 50 6f 70 75 70 2c 20 | 54 72 69 6d 4c 69 6e 65 |rPopup, |TrimLine|
|00000b10| 0d 2d 2d 20 20 20 75 6e | 6b 6e 6f 77 6e 20 70 72 |.--   un|known pr|
|00000b20| 6f 76 65 6e 61 6e 63 65 | 0d 0d 2d 2d 20 66 6f 72 |ovenance|..-- for|
|00000b30| 6d 61 74 28 66 6d 74 2c | 74 78 74 29 0d 2d 2d 20 |mat(fmt,|txt).-- |
|00000b40| 20 20 a9 20 31 39 39 30 | 20 62 79 20 43 68 61 72 |  . 1990| by Char|
|00000b50| 6c 65 73 20 4c 61 6b 6f | 73 0d 2d 2d 20 20 20 66 |les Lako|s.--   f|
|00000b60| 6f 72 6d 61 74 20 74 68 | 65 20 74 78 74 20 61 63 |ormat th|e txt ac|
|00000b70| 63 6f 72 64 69 6e 67 20 | 74 6f 20 74 68 65 20 66 |cording |to the f|
|00000b80| 6f 72 6d 61 74 20 73 74 | 72 69 6e 67 20 67 69 76 |ormat st|ring giv|
|00000b90| 65 6e 20 69 6e 20 66 6d | 74 0d 2d 2d 20 20 20 66 |en in fm|t.--   f|
|00000ba0| 6f 72 6d 61 74 74 69 6e | 67 20 63 6f 64 65 73 20 |ormattin|g codes |
|00000bb0| 61 72 65 20 67 69 76 65 | 6e 20 62 79 20 25 2d 65 |are give|n by %-e|
|00000bc0| 73 63 61 70 65 73 3a 0d | 2d 2d 20 20 20 25 6e 31 |scapes:.|--   %n1|
|00000bd0| 4c 6e 32 20 2d 20 66 6f | 72 6d 61 74 20 74 68 65 |Ln2 - fo|rmat the|
|00000be0| 20 6e 65 78 74 20 6e 31 | 20 63 6f 6c 73 20 6c 65 | next n1| cols le|
|00000bf0| 66 74 2d 6a 75 73 74 69 | 66 69 65 64 20 69 6e 20 |ft-justi|fied in |
|00000c00| 6e 32 20 63 6f 6c 73 0d | 2d 2d 20 20 20 25 6e 31 |n2 cols.|--   %n1|
|00000c10| 52 6e 32 20 2d 20 66 6f | 72 6d 61 74 20 74 68 65 |Rn2 - fo|rmat the|
|00000c20| 20 6e 65 78 74 20 6e 31 | 20 63 6f 6c 73 20 72 69 | next n1| cols ri|
|00000c30| 67 68 74 2d 6a 75 73 74 | 69 66 69 65 64 20 69 6e |ght-just|ified in|
|00000c40| 20 6e 32 20 63 6f 6c 73 | 0d 2d 2d 20 20 20 25 6e | n2 cols|.--   %n|
|00000c50| 31 3f 20 2d 20 66 6f 72 | 6d 61 74 20 74 68 65 20 |1? - for|mat the |
|00000c60| 6e 65 78 74 20 6e 31 20 | 63 6f 6c 73 20 69 6e 20 |next n1 |cols in |
|00000c70| 61 73 20 6d 61 6e 79 20 | 63 6f 6c 73 20 61 73 20 |as many |cols as |
|00000c80| 72 65 71 75 69 72 65 64 | 0d 2d 2d 20 20 20 25 63 |required|.--   %c|
|00000c90| 20 2d 20 74 6f 67 67 6c | 65 20 74 68 65 20 6e 65 | - toggl|e the ne|
|00000ca0| 78 74 20 63 68 61 72 20 | 62 65 74 77 65 65 6e 20 |xt char |between |
|00000cb0| 63 20 61 6e 64 20 62 6c | 61 6e 6b 0d 2d 2d 20 20 |c and bl|ank.--  |
|00000cc0| 20 28 69 66 20 6e 31 20 | 69 73 20 7a 65 72 6f 20 | (if n1 |is zero |
|00000cd0| 74 68 65 6e 20 74 68 65 | 20 6e 65 78 74 20 77 6f |then the| next wo|
|00000ce0| 72 64 20 69 73 20 66 6f | 72 6d 61 74 74 65 64 29 |rd is fo|rmatted)|
|00000cf0| 0d 0d 2d 2d 20 6c 69 73 | 74 4f 70 6e 28 77 68 69 |..-- lis|tOpn(whi|
|00000d00| 63 68 2c 65 6c 74 2c 6c | 69 73 74 29 0d 2d 2d 20 |ch,elt,l|ist).-- |
|00000d10| 20 20 a9 20 31 39 39 30 | 20 62 79 20 43 68 61 72 |  . 1990| by Char|
|00000d20| 6c 65 73 20 4c 61 6b 6f | 73 0d 2d 2d 20 20 20 70 |les Lako|s.--   p|
|00000d30| 65 72 66 6f 72 6d 20 61 | 6e 20 6f 70 65 72 61 74 |erform a|n operat|
|00000d40| 69 6f 6e 20 6f 6e 20 61 | 20 6e 75 6d 62 65 72 20 |ion on a| number |
|00000d50| 6c 69 73 74 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |list of |the form|
|00000d60| 20 31 2c 33 2d 35 2c 37 | 2d 31 30 0d 2d 2d 20 20 | 1,3-5,7|-10.--  |
|00000d70| 20 77 68 69 63 68 20 3d | 20 30 20 2d 20 72 65 74 | which =| 0 - ret|
|00000d80| 75 72 6e 20 74 72 75 65 | 2f 66 61 6c 73 65 20 69 |urn true|/false i|
|00000d90| 66 20 65 6c 74 20 69 73 | 20 69 6e 20 74 68 65 20 |f elt is| in the |
|00000da0| 6c 69 73 74 0d 2d 2d 20 | 20 20 77 68 69 63 68 20 |list.-- |  which |
|00000db0| 3d 20 31 20 2d 20 72 65 | 74 75 72 6e 20 74 68 65 |= 1 - re|turn the|
|00000dc0| 20 6c 69 73 74 20 77 69 | 74 68 20 65 6c 74 20 61 | list wi|th elt a|
|00000dd0| 64 64 65 64 0d 2d 2d 20 | 20 20 77 68 69 63 68 20 |dded.-- |  which |
|00000de0| 3d 20 2d 31 20 2d 20 72 | 65 74 75 72 6e 20 74 68 |= -1 - r|eturn th|
|00000df0| 65 20 6c 69 73 74 20 77 | 69 74 68 20 65 6c 74 20 |e list w|ith elt |
|00000e00| 64 65 6c 65 74 65 64 0d | 0d 2d 2d 20 65 78 74 72 |deleted.|.-- extr|
|00000e10| 61 63 74 48 65 61 64 28 | 74 78 74 2c 20 6b 65 79 |actHead(|txt, key|
|00000e20| 31 2c 20 6b 65 79 32 2c | 20 2e 2e 2e 29 0d 2d 2d |1, key2,| ...).--|
|00000e30| 20 20 20 a9 20 31 39 39 | 30 20 62 79 20 43 68 61 |   . 199|0 by Cha|
|00000e40| 72 6c 65 73 20 4c 61 6b | 6f 73 0d 2d 2d 20 20 20 |rles Lak|os.--   |
|00000e50| 65 78 74 72 61 63 74 20 | 74 68 65 20 52 46 43 38 |extract |the RFC8|
|00000e60| 32 32 20 66 69 65 6c 64 | 73 20 67 69 76 65 6e 20 |22 field|s given |
|00000e70| 62 79 20 74 68 65 20 6b | 65 79 77 6f 72 64 73 20 |by the k|eywords |
|00000e80| 66 72 6f 6d 20 61 20 68 | 65 61 64 65 72 0d 2d 2d |from a h|eader.--|
|00000e90| 20 20 20 66 69 72 73 74 | 20 6c 69 6e 65 20 6f 66 |   first| line of|
|00000ea0| 20 72 65 73 75 6c 74 20 | 69 73 20 6e 75 6d 62 65 | result |is numbe|
|00000eb0| 72 20 6f 66 20 6c 69 6e | 65 73 20 69 6e 20 74 68 |r of lin|es in th|
|00000ec0| 65 20 68 65 61 64 65 72 | 0d 2d 2d 20 20 20 73 75 |e header|.--   su|
|00000ed0| 62 73 65 71 75 65 6e 74 | 20 6c 69 6e 65 73 20 67 |bsequent| lines g|
|00000ee0| 69 76 65 73 20 6c 69 6e | 65 73 20 63 6f 72 72 65 |ives lin|es corre|
|00000ef0| 73 70 6f 6e 64 69 6e 67 | 20 74 6f 20 6b 65 79 77 |sponding| to keyw|
|00000f00| 6f 72 64 73 0d 0d 2d 2d | 20 66 69 6c 65 4e 61 6d |ords..--| fileNam|
|00000f10| 65 28 70 61 74 68 2c 70 | 72 6f 6d 70 74 31 2c 70 |e(path,p|rompt1,p|
|00000f20| 72 6f 6d 70 74 32 29 0d | 2d 2d 20 20 20 a9 20 31 |rompt2).|--   . 1|
|00000f30| 39 39 30 20 62 79 20 43 | 68 61 72 6c 65 73 20 4c |990 by C|harles L|
|00000f40| 61 6b 6f 73 0d 2d 2d 20 | 20 20 64 65 74 65 72 6d |akos.-- |  determ|
|00000f50| 69 6e 65 20 61 20 66 69 | 6c 65 20 6e 61 6d 65 20 |ine a fi|le name |
|00000f60| 67 69 76 65 6e 20 74 68 | 65 20 69 6e 69 74 69 61 |given th|e initia|
|00000f70| 6c 20 66 75 6c 6c 20 70 | 61 74 68 20 6e 61 6d 65 |l full p|ath name|
|00000f80| 20 22 70 61 74 68 22 0d | 2d 2d 20 20 20 70 72 6f | "path".|--   pro|
|00000f90| 6d 70 74 31 20 69 73 20 | 74 68 65 20 70 72 6f 6d |mpt1 is |the prom|
|00000fa0| 70 74 20 66 6f 72 20 61 | 6e 20 69 6e 70 75 74 20 |pt for a|n input |
|00000fb0| 66 69 6c 65 2c 20 65 6d | 70 74 79 20 69 66 20 6f |file, em|pty if o|
|00000fc0| 75 74 70 75 74 20 6f 6e | 6c 79 0d 2d 2d 20 20 20 |utput on|ly.--   |
|00000fd0| 70 72 6f 6d 70 74 32 20 | 69 73 20 74 68 65 20 70 |prompt2 |is the p|
|00000fe0| 72 6f 6d 70 74 20 66 6f | 72 20 61 6e 20 6f 75 74 |rompt fo|r an out|
|00000ff0| 70 75 74 20 66 69 6c 65 | 2c 20 65 6d 70 74 79 20 |put file|, empty |
|00001000| 69 66 20 69 6e 70 75 74 | 20 6f 6e 6c 79 0d 2d 2d |if input| only.--|
|00001010| 20 20 20 69 66 20 70 72 | 6f 6d 70 74 31 20 61 6e |   if pr|ompt1 an|
|00001020| 64 20 70 72 6f 6d 70 74 | 32 20 61 72 65 20 62 6f |d prompt|2 are bo|
|00001030| 74 68 20 6e 6f 6e 2d 6e | 75 6c 6c 2c 20 74 68 65 |th non-n|ull, the|
|00001040| 6e 20 70 72 6f 6d 70 74 | 31 20 71 75 65 72 69 65 |n prompt|1 querie|
|00001050| 73 0d 2d 2d 20 20 20 74 | 68 65 20 66 69 6c 65 20 |s.--   t|he file |
|00001060| 74 6f 20 61 70 70 65 6e | 64 20 74 6f 2e 20 20 49 |to appen|d to.  I|
|00001070| 66 20 74 68 65 20 62 75 | 74 74 6f 6e 20 22 4e 65 |f the bu|tton "Ne|
|00001080| 77 20 46 69 6c 65 22 20 | 69 73 20 63 68 6f 73 65 |w File" |is chose|
|00001090| 6e 2c 20 74 68 65 6e 0d | 2d 2d 20 20 20 70 72 6f |n, then.|--   pro|
|000010a0| 6d 70 74 32 20 69 6e 64 | 69 63 61 74 65 73 20 74 |mpt2 ind|icates t|
|000010b0| 68 65 20 63 68 6f 69 63 | 65 20 6f 66 20 61 20 6e |he choic|e of a n|
|000010c0| 65 77 20 66 69 6c 65 0d | 0d 2d 2d 20 4f 70 65 6e |ew file.|.-- Open|
|000010d0| 20 61 6e 64 20 63 6c 6f | 73 65 20 73 74 61 63 6b | and clo|se stack|
|000010e0| 20 62 79 20 64 65 6c 65 | 67 61 74 69 6e 67 20 6f | by dele|gating o|
|000010f0| 70 65 72 61 74 69 6f 6e | 73 20 74 6f 20 69 6e 64 |peration|s to ind|
|00001100| 65 78 20 63 61 72 64 73 | 0d 0d 6f 6e 20 6f 70 65 |ex cards|..on ope|
|00001110| 6e 53 74 61 63 6b 0d 67 | 6c 6f 62 61 6c 20 73 74 |nStack.g|lobal st|
|00001120| 61 63 6b 73 2c 20 68 69 | 64 65 4d 65 6e 75 2c 20 |acks, hi|deMenu, |
|00001130| 6f 6c 64 4c 65 76 65 6c | 0d 69 66 20 74 68 65 20 |oldLevel|.if the |
|00001140| 76 65 72 73 69 6f 6e 20 | 3c 20 31 2e 32 20 74 68 |version |< 1.2 th|
|00001150| 65 6e 0d 61 6e 73 77 65 | 72 20 22 59 6f 75 20 6d |en.answe|r "You m|
|00001160| 75 73 74 20 68 61 76 65 | 20 48 79 70 65 72 43 61 |ust have| HyperCa|
|00001170| 72 64 20 76 65 72 73 69 | 6f 6e 20 31 2e 32 20 6f |rd versi|on 1.2 o|
|00001180| 72 20 6c 61 74 65 72 22 | 20 77 69 74 68 20 22 4f |r later"| with "O|
|00001190| 4b 22 0d 73 65 74 20 6c | 6f 63 6b 4d 65 73 73 61 |K".set l|ockMessa|
|000011a0| 67 65 73 20 74 6f 20 74 | 72 75 65 0d 64 6f 4d 65 |ges to t|rue.doMe|
|000011b0| 6e 75 20 22 48 6f 6d 65 | 22 0d 65 78 69 74 20 6f |nu "Home|".exit o|
|000011c0| 70 65 6e 53 74 61 63 6b | 0d 65 6e 64 20 69 66 0d |penStack|.end if.|
|000011d0| 69 66 20 73 74 61 63 6b | 73 20 69 73 20 65 6d 70 |if stack|s is emp|
|000011e0| 74 79 20 74 68 65 6e 20 | 67 65 74 48 6f 6d 65 49 |ty then |getHomeI|
|000011f0| 6e 66 6f 0d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |nfo.set |cursor t|
|00001200| 6f 20 62 75 73 79 0d 0d | 73 65 6e 64 20 22 72 65 |o busy..|send "re|
|00001210| 73 65 74 22 20 74 6f 20 | 63 61 72 64 20 22 43 6f |set" to |card "Co|
|00001220| 6e 66 69 67 22 20 20 20 | 20 20 20 20 20 20 2d 2d |nfig"   |      --|
|00001230| 20 6d 75 73 74 20 64 65 | 74 65 72 6d 69 6e 65 20 | must de|termine |
|00001240| 73 65 74 74 69 6e 67 20 | 66 69 72 73 74 0d 73 65 |setting |first.se|
|00001250| 6e 64 20 22 72 65 73 65 | 74 22 20 74 6f 20 63 61 |nd "rese|t" to ca|
|00001260| 72 64 20 22 4f 70 74 69 | 6f 6e 73 22 0d 73 65 6e |rd "Opti|ons".sen|
|00001270| 64 20 22 72 65 73 65 74 | 22 20 74 6f 20 63 61 72 |d "reset|" to car|
|00001280| 64 20 22 53 65 6e 64 4d | 61 69 6c 22 0d 73 65 6e |d "SendM|ail".sen|
|00001290| 64 20 22 72 65 73 65 74 | 22 20 74 6f 20 63 61 72 |d "reset|" to car|
|000012a0| 64 20 22 47 72 6f 75 70 | 49 6e 64 65 78 22 0d 73 |d "Group|Index".s|
|000012b0| 65 6e 64 20 22 72 65 73 | 65 74 22 20 74 6f 20 63 |end "res|et" to c|
|000012c0| 61 72 64 20 22 53 75 62 | 6a 65 63 74 49 6e 64 65 |ard "Sub|jectInde|
|000012d0| 78 22 0d 73 65 6e 64 20 | 22 72 65 73 65 74 22 20 |x".send |"reset" |
|000012e0| 74 6f 20 63 61 72 64 20 | 22 4d 65 73 73 61 67 65 |to card |"Message|
|000012f0| 49 6e 64 65 78 22 0d 73 | 65 6e 64 20 22 63 6c 65 |Index".s|end "cle|
|00001300| 61 72 46 69 65 6c 64 73 | 20 66 61 6c 73 65 22 20 |arFields| false" |
|00001310| 74 6f 20 63 61 72 64 20 | 22 53 65 6e 64 4d 61 69 |to card |"SendMai|
|00001320| 6c 22 0d 73 65 6e 64 20 | 22 63 6c 65 61 72 46 69 |l".send |"clearFi|
|00001330| 65 6c 64 73 20 66 61 6c | 73 65 22 20 74 6f 20 63 |elds fal|se" to c|
|00001340| 61 72 64 20 22 52 65 61 | 64 4e 65 77 73 22 0d 0d |ard "Rea|dNews"..|
|00001350| 69 66 20 68 69 64 65 4d | 65 6e 75 20 74 68 65 6e |if hideM|enu then|
|00001360| 20 68 69 64 65 20 6d 65 | 6e 75 42 61 72 0d 70 75 | hide me|nuBar.pu|
|00001370| 74 20 74 68 65 20 75 73 | 65 72 4c 65 76 65 6c 20 |t the us|erLevel |
|00001380| 69 6e 74 6f 20 6f 6c 64 | 4c 65 76 65 6c 20 20 20 |into old|Level   |
|00001390| 20 20 2d 2d 20 6d 75 73 | 74 20 63 6f 6d 65 20 61 |  -- mus|t come a|
|000013a0| 66 74 65 72 20 72 65 73 | 65 74 0d 73 65 74 20 74 |fter res|et.set t|
|000013b0| 68 65 20 75 73 65 72 4c | 65 76 65 6c 20 74 6f 20 |he userL|evel to |
|000013c0| 32 0d 65 6e 64 20 6f 70 | 65 6e 53 74 61 63 6b 0d |2.end op|enStack.|
|000013d0| 0d 6f 6e 20 61 62 6f 75 | 74 54 6f 51 75 69 74 0d |.on abou|tToQuit.|
|000013e0| 67 6c 6f 62 61 6c 20 71 | 75 69 74 74 69 6e 67 2c |global q|uitting,|
|000013f0| 20 61 75 74 6f 43 6f 6d | 70 61 63 74 2c 20 64 69 | autoCom|pact, di|
|00001400| 73 63 61 72 64 53 61 76 | 65 64 0d 70 75 74 20 74 |scardSav|ed.put t|
|00001410| 72 75 65 20 69 6e 74 6f | 20 71 75 69 74 74 69 6e |rue into| quittin|
|00001420| 67 0d 69 66 20 64 69 73 | 63 61 72 64 53 61 76 65 |g.if dis|cardSave|
|00001430| 64 20 74 68 65 6e 0d 69 | 6e 66 6f 72 6d 20 22 44 |d then.i|nform "D|
|00001440| 69 73 63 61 72 64 69 6e | 67 20 73 61 76 65 64 20 |iscardin|g saved |
|00001450| 6d 65 73 73 61 67 65 73 | 2e 2e 2e 22 0d 70 75 73 |messages|...".pus|
|00001460| 68 20 63 61 72 64 0d 67 | 6f 20 63 61 72 64 20 22 |h card.g|o card "|
|00001470| 4d 65 73 73 61 67 65 49 | 6e 64 65 78 22 0d 73 65 |MessageI|ndex".se|
|00001480| 6e 64 20 22 73 65 74 56 | 69 65 77 20 66 61 6c 73 |nd "setV|iew fals|
|00001490| 65 2c 74 72 75 65 22 20 | 74 6f 20 74 68 69 73 20 |e,true" |to this |
|000014a0| 63 61 72 64 0d 70 6f 70 | 20 63 61 72 64 0d 65 6e |card.pop| card.en|
|000014b0| 64 20 69 66 0d 69 66 20 | 74 68 65 20 6e 75 6d 62 |d if.if |the numb|
|000014c0| 65 72 20 6f 66 20 63 61 | 72 64 73 20 3e 20 35 30 |er of ca|rds > 50|
|000014d0| 20 74 68 65 6e 0d 70 75 | 74 20 22 54 68 69 73 20 | then.pu|t "This |
|000014e0| 73 74 61 63 6b 20 63 6f | 6e 74 61 69 6e 73 20 22 |stack co|ntains "|
|000014f0| 20 26 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | & the n|umber of|
|00001500| 20 63 61 72 64 73 20 26 | 26 20 22 63 61 72 64 73 | cards &|& "cards|
|00001510| 2e 22 0d 61 6e 73 77 65 | 72 20 22 41 72 63 68 69 |.".answe|r "Archi|
|00001520| 76 65 2f 64 65 6c 65 74 | 65 20 73 6f 6d 65 20 6d |ve/delet|e some m|
|00001530| 65 73 73 61 67 65 73 20 | 73 6f 6f 6e 21 22 20 77 |essages |soon!" w|
|00001540| 69 74 68 20 22 4f 4b 22 | 0d 65 6e 64 20 69 66 0d |ith "OK"|.end if.|
|00001550| 69 66 20 61 75 74 6f 43 | 6f 6d 70 61 63 74 20 6f |if autoC|ompact o|
|00001560| 72 20 c2 0d 28 74 68 65 | 20 66 72 65 65 53 69 7a |r ..(the| freeSiz|
|00001570| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |e of thi|s stack |
|00001580| 2f 20 74 68 65 20 73 69 | 7a 65 20 6f 66 20 74 68 |/ the si|ze of th|
|00001590| 69 73 20 73 74 61 63 6b | 29 20 3e 3d 20 30 2e 34 |is stack|) >= 0.4|
|000015a0| 20 74 68 65 6e 0d 43 6f | 6d 70 61 63 74 0d 65 6e | then.Co|mpact.en|
|000015b0| 64 20 69 66 0d 70 75 74 | 20 66 61 6c 73 65 20 69 |d if.put| false i|
|000015c0| 6e 74 6f 20 71 75 69 74 | 74 69 6e 67 0d 65 6e 64 |nto quit|ting.end|
|000015d0| 20 61 62 6f 75 74 54 6f | 51 75 69 74 0d 0d 6f 6e | aboutTo|Quit..on|
|000015e0| 20 63 6c 6f 73 65 53 74 | 61 63 6b 0d 67 6c 6f 62 | closeSt|ack.glob|
|000015f0| 61 6c 20 6f 6c 64 4c 65 | 76 65 6c 0d 73 65 6e 64 |al oldLe|vel.send|
|00001600| 20 22 72 65 73 65 74 22 | 20 74 6f 20 63 61 72 64 | "reset"| to card|
|00001610| 20 22 43 6f 6e 66 69 67 | 22 0d 73 65 6e 64 20 22 | "Config|".send "|
|00001620| 72 65 73 65 74 22 20 74 | 6f 20 63 61 72 64 20 22 |reset" t|o card "|
|00001630| 4f 70 74 69 6f 6e 73 22 | 0d 73 65 6e 64 20 22 72 |Options"|.send "r|
|00001640| 65 73 65 74 22 20 74 6f | 20 63 61 72 64 20 22 47 |eset" to| card "G|
|00001650| 72 6f 75 70 49 6e 64 65 | 78 22 0d 73 65 6e 64 20 |roupInde|x".send |
|00001660| 22 72 65 73 65 74 22 20 | 74 6f 20 63 61 72 64 20 |"reset" |to card |
|00001670| 22 53 75 62 6a 65 63 74 | 49 6e 64 65 78 22 0d 73 |"Subject|Index".s|
|00001680| 65 6e 64 20 22 72 65 73 | 65 74 22 20 74 6f 20 63 |end "res|et" to c|
|00001690| 61 72 64 20 22 4d 65 73 | 73 61 67 65 49 6e 64 65 |ard "Mes|sageInde|
|000016a0| 78 22 0d 73 65 6e 64 20 | 22 63 6c 65 61 72 46 69 |x".send |"clearFi|
|000016b0| 65 6c 64 73 20 66 61 6c | 73 65 22 20 74 6f 20 63 |elds fal|se" to c|
|000016c0| 61 72 64 20 22 53 65 6e | 64 4d 61 69 6c 22 0d 73 |ard "Sen|dMail".s|
|000016d0| 65 6e 64 20 22 63 6c 65 | 61 72 46 69 65 6c 64 73 |end "cle|arFields|
|000016e0| 20 66 61 6c 73 65 22 20 | 74 6f 20 63 61 72 64 20 | false" |to card |
|000016f0| 22 52 65 61 64 4e 65 77 | 73 22 0d 73 68 6f 77 20 |"ReadNew|s".show |
|00001700| 6d 65 6e 75 42 61 72 0d | 70 75 74 20 6f 6c 64 4c |menuBar.|put oldL|
|00001710| 65 76 65 6c 20 69 6e 74 | 6f 20 75 73 65 72 4c 65 |evel int|o userLe|
|00001720| 76 65 6c 0d 6c 6f 63 6b | 20 73 63 72 65 65 6e 0d |vel.lock| screen.|
|00001730| 65 6e 64 20 63 6c 6f 73 | 65 53 74 61 63 6b 0d 0d |end clos|eStack..|
|00001740| 0d 2d 2d 20 48 61 6e 64 | 6c 65 20 63 6f 6e 6e 65 |.-- Hand|le conne|
|00001750| 63 74 69 6f 6e 73 0d 2d | 2d 20 6f 6e 20 69 64 6c |ctions.-|- on idl|
|00001760| 65 20 63 68 65 63 6b 20 | 66 6f 72 20 74 68 65 20 |e check |for the |
|00001770| 63 6f 6e 6e 65 63 74 69 | 6f 6e 73 20 67 6f 69 6e |connecti|ons goin|
|00001780| 67 20 64 6f 77 6e 2c 20 | 61 6e 64 20 66 6f 72 20 |g down, |and for |
|00001790| 73 70 75 72 69 6f 75 73 | 20 64 61 74 61 0d 0d 6f |spurious| data..o|
|000017a0| 6e 20 69 64 6c 65 0d 67 | 6c 6f 62 61 6c 20 70 6f |n idle.g|lobal po|
|000017b0| 70 2c 73 6d 74 70 2c 6e | 6e 74 70 0d 69 66 20 64 |p,smtp,n|ntp.if d|
|000017c0| 6f 77 6e 53 74 61 74 65 | 28 70 6f 70 29 20 74 68 |ownState|(pop) th|
|000017d0| 65 6e 20 63 6c 6f 73 65 | 50 6f 70 20 65 6c 73 65 |en close|Pop else|
|000017e0| 20 63 6c 65 61 72 43 6f | 6e 6e 20 70 6f 70 0d 69 | clearCo|nn pop.i|
|000017f0| 66 20 64 6f 77 6e 53 74 | 61 74 65 28 73 6d 74 70 |f downSt|ate(smtp|
|00001800| 29 20 74 68 65 6e 20 63 | 6c 6f 73 65 53 6d 74 70 |) then c|loseSmtp|
|00001810| 20 65 6c 73 65 20 63 6c | 65 61 72 43 6f 6e 6e 20 | else cl|earConn |
|00001820| 73 6d 74 70 0d 69 66 20 | 64 6f 77 6e 53 74 61 74 |smtp.if |downStat|
|00001830| 65 28 6e 6e 74 70 29 20 | 74 68 65 6e 20 63 6c 6f |e(nntp) |then clo|
|00001840| 73 65 4e 6e 74 70 20 65 | 6c 73 65 20 63 6c 65 61 |seNntp e|lse clea|
|00001850| 72 43 6f 6e 6e 20 6e 6e | 74 70 0d 65 6e 64 20 69 |rConn nn|tp.end i|
|00001860| 64 6c 65 0d 0d 66 75 6e | 63 74 69 6f 6e 20 64 6f |dle..fun|ction do|
|00001870| 77 6e 53 74 61 74 65 20 | 63 6f 6e 6e 65 63 74 69 |wnState |connecti|
|00001880| 6f 6e 0d 69 66 20 63 6f | 6e 6e 65 63 74 69 6f 6e |on.if co|nnection|
|00001890| 20 69 73 20 65 6d 70 74 | 79 20 74 68 65 6e 20 72 | is empt|y then r|
|000018a0| 65 74 75 72 6e 20 74 72 | 75 65 0d 67 65 74 20 54 |eturn tr|ue.get T|
|000018b0| 43 50 53 74 61 74 65 28 | 63 6f 6e 6e 65 63 74 69 |CPState(|connecti|
|000018c0| 6f 6e 29 0d 69 66 20 69 | 74 20 69 73 20 22 65 73 |on).if i|t is "es|
|000018d0| 74 61 62 6c 69 73 68 65 | 64 22 20 74 68 65 6e 20 |tablishe|d" then |
|000018e0| 72 65 74 75 72 6e 20 66 | 61 6c 73 65 0d 69 66 20 |return f|alse.if |
|000018f0| 63 68 61 72 20 31 20 6f | 66 20 69 74 20 69 73 20 |char 1 o|f it is |
|00001900| 22 a4 22 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |"." then| return |
|00001910| 74 72 75 65 0d 69 66 20 | 69 74 20 69 73 20 22 6e |true.if |it is "n|
|00001920| 6f 20 63 6f 6e 6e 65 63 | 74 69 6f 6e 22 20 74 68 |o connec|tion" th|
|00001930| 65 6e 20 72 65 74 75 72 | 6e 20 74 72 75 65 0d 69 |en retur|n true.i|
|00001940| 66 20 69 74 20 63 6f 6e | 74 61 69 6e 73 20 22 63 |f it con|tains "c|
|00001950| 6c 6f 73 65 22 20 74 68 | 65 6e 20 72 65 74 75 72 |lose" th|en retur|
|00001960| 6e 20 74 72 75 65 0d 69 | 66 20 69 74 20 63 6f 6e |n true.i|f it con|
|00001970| 74 61 69 6e 73 20 22 77 | 61 69 74 69 6e 67 22 20 |tains "w|aiting" |
|00001980| 74 68 65 6e 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |then.set| cursor |
|00001990| 74 6f 20 62 75 73 79 0d | 72 65 74 75 72 6e 20 66 |to busy.|return f|
|000019a0| 61 6c 73 65 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |alse.end| if.end |
|000019b0| 64 6f 77 6e 53 74 61 74 | 65 0d 0d 6f 6e 20 63 6c |downStat|e..on cl|
|000019c0| 65 61 72 43 6f 6e 6e 20 | 63 6f 6e 6e 65 63 74 69 |earConn |connecti|
|000019d0| 6f 6e 0d 67 6c 6f 62 61 | 6c 20 64 69 73 63 61 72 |on.globa|l discar|
|000019e0| 64 49 6e 63 6f 6d 69 6e | 67 0d 67 65 74 20 54 43 |dIncomin|g.get TC|
|000019f0| 50 43 68 61 72 73 41 76 | 61 69 6c 61 62 6c 65 28 |PCharsAv|ailable(|
|00001a00| 63 6f 6e 6e 65 63 74 69 | 6f 6e 29 0d 69 66 20 69 |connecti|on).if i|
|00001a10| 74 20 3e 20 30 20 61 6e | 64 20 64 69 73 63 61 72 |t > 0 an|d discar|
|00001a20| 64 49 6e 63 6f 6d 69 6e | 67 20 69 73 20 6e 6f 74 |dIncomin|g is not|
|00001a30| 20 74 72 75 65 20 74 68 | 65 6e 0d 70 75 74 20 69 | true th|en.put i|
|00001a40| 74 20 69 6e 74 6f 20 63 | 68 61 72 73 57 61 69 74 |t into c|harsWait|
|00001a50| 69 6e 67 0d 61 6e 73 77 | 65 72 20 22 43 68 61 6e |ing.answ|er "Chan|
|00001a60| 6e 65 6c 20 68 61 73 20 | 73 70 75 72 69 6f 75 73 |nel has |spurious|
|00001a70| 20 6d 65 73 73 61 67 65 | 22 20 77 69 74 68 20 22 | message|" with "|
|00001a80| 53 68 6f 77 20 6d 65 22 | 20 6f 72 20 22 4c 65 61 |Show me"| or "Lea|
|00001a90| 76 65 22 20 6f 72 20 c2 | 0d 22 44 69 73 63 61 72 |ve" or .|."Discar|
|00001aa0| 64 22 0d 69 66 20 69 74 | 20 69 73 20 22 53 68 6f |d".if it| is "Sho|
|00001ab0| 77 20 6d 65 22 20 74 68 | 65 6e 0d 67 65 74 20 54 |w me" th|en.get T|
|00001ac0| 43 50 52 65 63 76 43 68 | 61 72 73 28 63 6f 6e 6e |CPRecvCh|ars(conn|
|00001ad0| 65 63 74 69 6f 6e 2c 20 | 63 68 61 72 73 57 61 69 |ection, |charsWai|
|00001ae0| 74 69 6e 67 29 0d 61 6e | 73 77 65 72 20 69 74 20 |ting).an|swer it |
|00001af0| 77 69 74 68 20 22 44 69 | 73 63 61 72 64 22 0d 65 |with "Di|scard".e|
|00001b00| 6e 64 20 69 66 0d 70 75 | 74 20 69 74 20 69 73 20 |nd if.pu|t it is |
|00001b10| 22 44 69 73 63 61 72 64 | 22 20 69 6e 74 6f 20 64 |"Discard|" into d|
|00001b20| 69 73 63 61 72 64 49 6e | 63 6f 6d 69 6e 67 0d 67 |iscardIn|coming.g|
|00001b30| 65 74 20 54 43 50 43 68 | 61 72 73 41 76 61 69 6c |et TCPCh|arsAvail|
|00001b40| 61 62 6c 65 28 63 6f 6e | 6e 65 63 74 69 6f 6e 29 |able(con|nection)|
|00001b50| 0d 65 6e 64 20 69 66 0d | 72 65 70 65 61 74 20 77 |.end if.|repeat w|
|00001b60| 68 69 6c 65 20 69 74 20 | 3e 20 30 20 61 6e 64 20 |hile it |> 0 and |
|00001b70| 64 69 73 63 61 72 64 49 | 6e 63 6f 6d 69 6e 67 20 |discardI|ncoming |
|00001b80| 69 73 20 74 72 75 65 0d | 73 65 74 20 63 75 72 73 |is true.|set curs|
|00001b90| 6f 72 20 74 6f 20 62 75 | 73 79 0d 67 65 74 20 54 |or to bu|sy.get T|
|00001ba0| 43 50 52 65 63 76 43 68 | 61 72 73 28 63 6f 6e 6e |CPRecvCh|ars(conn|
|00001bb0| 65 63 74 69 6f 6e 2c 69 | 74 29 0d 67 65 74 20 54 |ection,i|t).get T|
|00001bc0| 43 50 43 68 61 72 73 41 | 76 61 69 6c 61 62 6c 65 |CPCharsA|vailable|
|00001bd0| 28 63 6f 6e 6e 65 63 74 | 69 6f 6e 29 0d 65 6e 64 |(connect|ion).end|
|00001be0| 20 72 65 70 65 61 74 0d | 65 6e 64 20 63 6c 65 61 | repeat.|end clea|
|00001bf0| 72 43 6f 6e 6e 0d 0d 6f | 6e 20 72 65 63 6f 6e 66 |rConn..o|n reconf|
|00001c00| 69 67 75 72 65 0d 70 75 | 73 68 20 63 61 72 64 0d |igure.pu|sh card.|
|00001c10| 67 6f 20 63 61 72 64 20 | 22 43 6f 6e 66 69 67 22 |go card |"Config"|
|00001c20| 0d 65 78 69 74 20 74 6f | 20 48 79 70 65 72 63 61 |.exit to| Hyperca|
|00001c30| 72 64 0d 65 6e 64 20 72 | 65 63 6f 6e 66 69 67 75 |rd.end r|econfigu|
|00001c40| 72 65 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 6f 70 65 |re..func|tion ope|
|00001c50| 6e 50 6f 72 74 20 73 65 | 72 76 65 72 2c 68 6f 73 |nPort se|rver,hos|
|00001c60| 74 4e 61 6d 65 2c 70 6f | 72 74 0d 73 65 74 20 63 |tName,po|rt.set c|
|00001c70| 75 72 73 6f 72 20 74 6f | 20 62 75 73 79 0d 69 66 |ursor to| busy.if|
|00001c80| 20 68 6f 73 74 4e 61 6d | 65 20 69 73 20 65 6d 70 | hostNam|e is emp|
|00001c90| 74 79 20 74 68 65 6e 0d | 61 6e 73 77 65 72 20 73 |ty then.|answer s|
|00001ca0| 65 72 76 65 72 20 26 26 | 20 22 68 6f 73 74 20 69 |erver &&| "host i|
|00001cb0| 73 20 6e 6f 74 20 63 6f | 6e 66 69 67 75 72 65 64 |s not co|nfigured|
|00001cc0| 22 20 77 69 74 68 20 22 | 43 6f 6e 66 69 67 75 72 |" with "|Configur|
|00001cd0| 65 22 0d 72 65 63 6f 6e | 66 69 67 75 72 65 0d 65 |e".recon|figure.e|
|00001ce0| 6e 64 20 69 66 0d 2d 2d | 20 47 65 74 20 20 68 6f |nd if.--| Get  ho|
|00001cf0| 73 74 20 61 64 64 72 65 | 73 73 20 66 72 6f 6d 20 |st addre|ss from |
|00001d00| 74 68 65 20 6e 61 6d 65 | 20 73 65 72 76 65 72 0d |the name| server.|
|00001d10| 69 6e 66 6f 72 6d 20 22 | 4c 6f 6f 6b 69 6e 67 20 |inform "|Looking |
|00001d20| 75 70 22 20 26 26 20 73 | 65 72 76 65 72 20 26 26 |up" && s|erver &&|
|00001d30| 20 22 73 65 72 76 65 72 | 22 20 26 26 20 68 6f 73 | "server|" && hos|
|00001d40| 74 4e 61 6d 65 20 26 26 | 20 22 2e 2e 2e 22 0d 70 |tName &&| "...".p|
|00001d50| 75 74 20 54 43 50 4e 61 | 6d 65 54 6f 41 64 64 72 |ut TCPNa|meToAddr|
|00001d60| 28 68 6f 73 74 4e 61 6d | 65 2c 20 31 38 30 30 29 |(hostNam|e, 1800)|
|00001d70| 20 69 6e 74 6f 20 68 6f | 73 74 41 64 64 72 65 73 | into ho|stAddres|
|00001d80| 73 0d 69 66 20 68 6f 73 | 74 41 64 64 72 65 73 73 |s.if hos|tAddress|
|00001d90| 20 63 6f 6e 74 61 69 6e | 73 20 22 a4 a4 a4 22 20 | contain|s "..." |
|00001da0| 74 68 65 6e 0d 61 6e 73 | 77 65 72 20 22 43 61 6e |then.ans|wer "Can|
|00001db0| 27 74 20 63 6f 6e 6e 65 | 63 74 20 74 6f 3a 22 20 |'t conne|ct to:" |
|00001dc0| 26 26 20 68 6f 73 74 4e | 61 6d 65 20 77 69 74 68 |&& hostN|ame with|
|00001dd0| 20 22 4f 4b 22 20 6f 72 | 20 22 52 65 63 6f 6e 66 | "OK" or| "Reconf|
|00001de0| 69 67 75 72 65 22 0d 69 | 66 20 69 74 20 69 73 20 |igure".i|f it is |
|00001df0| 22 52 65 63 6f 6e 66 69 | 67 75 72 65 22 20 74 68 |"Reconfi|gure" th|
|00001e00| 65 6e 0d 67 6f 20 63 61 | 72 64 20 22 43 6f 6e 66 |en.go ca|rd "Conf|
|00001e10| 69 67 22 0d 65 78 69 74 | 20 74 6f 20 48 79 70 65 |ig".exit| to Hype|
|00001e20| 72 63 61 72 64 0d 65 6e | 64 20 69 66 0d 72 65 74 |rcard.en|d if.ret|
|00001e30| 75 72 6e 20 65 6d 70 74 | 79 0d 65 6e 64 20 69 66 |urn empt|y.end if|
|00001e40| 0d 2d 2d 20 47 65 74 20 | 61 20 63 6f 6e 6e 65 63 |.-- Get |a connec|
|00001e50| 74 69 6f 6e 20 49 44 20 | 66 72 6f 6d 20 54 43 50 |tion ID |from TCP|
|00001e60| 0d 69 6e 66 6f 72 6d 20 | 22 43 6f 6e 6e 65 63 74 |.inform |"Connect|
|00001e70| 69 6e 67 20 74 6f 22 20 | 26 26 20 73 65 72 76 65 |ing to" |&& serve|
|00001e80| 72 20 26 26 20 22 73 65 | 72 76 65 72 22 20 26 26 |r && "se|rver" &&|
|00001e90| 20 68 6f 73 74 4e 61 6d | 65 20 26 26 20 22 2e 2e | hostNam|e && "..|
|00001ea0| 2e 22 0d 70 75 74 20 54 | 43 50 41 63 74 69 76 65 |.".put T|CPActive|
|00001eb0| 4f 70 65 6e 28 68 6f 73 | 74 41 64 64 72 65 73 73 |Open(hos|tAddress|
|00001ec0| 2c 20 70 6f 72 74 2c 20 | 30 29 20 69 6e 74 6f 20 |, port, |0) into |
|00001ed0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 0d 69 66 20 63 6f |connecti|on.if co|
|00001ee0| 6e 6e 65 63 74 69 6f 6e | 20 63 6f 6e 74 61 69 6e |nnection| contain|
|00001ef0| 73 20 22 66 61 69 6c 22 | 20 74 68 65 6e 0d 70 75 |s "fail"| then.pu|
|00001f00| 74 20 22 52 65 73 75 6c | 74 3a 22 20 26 26 20 63 |t "Resul|t:" && c|
|00001f10| 6f 6e 6e 65 63 74 69 6f | 6e 0d 72 65 74 75 72 6e |onnectio|n.return|
|00001f20| 20 65 6d 70 74 79 0d 65 | 6e 64 20 69 66 0d 72 65 | empty.e|nd if.re|
|00001f30| 74 75 72 6e 20 63 6f 6e | 6e 65 63 74 69 6f 6e 0d |turn con|nection.|
|00001f40| 65 6e 64 20 6f 70 65 6e | 50 6f 72 74 0d 0d 6f 6e |end open|Port..on|
|00001f50| 20 6f 70 65 6e 50 6f 70 | 0d 67 6c 6f 62 61 6c 20 | openPop|.global |
|00001f60| 70 6f 70 2c 20 6d 61 69 | 6c 48 6f 73 74 2c 20 75 |pop, mai|lHost, u|
|00001f70| 73 65 72 49 44 2c 20 70 | 61 73 73 77 64 2c 20 63 |serID, p|asswd, c|
|00001f80| 75 72 72 4d 65 73 67 0d | 2d 2d 20 4f 70 65 6e 20 |urrMesg.|-- Open |
|00001f90| 74 68 65 20 63 68 61 6e | 6e 65 6c 20 69 66 20 70 |the chan|nel if p|
|00001fa0| 6f 73 73 69 62 6c 65 0d | 69 66 20 75 73 65 72 49 |ossible.|if userI|
|00001fb0| 44 20 69 73 20 65 6d 70 | 74 79 20 74 68 65 6e 0d |D is emp|ty then.|
|00001fc0| 61 6e 73 77 65 72 20 22 | 75 73 65 72 49 44 20 69 |answer "|userID i|
|00001fd0| 73 20 6e 6f 74 20 63 6f | 6e 66 69 67 75 72 65 64 |s not co|nfigured|
|00001fe0| 22 20 77 69 74 68 20 22 | 43 6f 6e 66 69 67 75 72 |" with "|Configur|
|00001ff0| 65 22 0d 72 65 63 6f 6e | 66 69 67 75 72 65 0d 65 |e".recon|figure.e|
|00002000| 6c 73 65 20 69 66 20 70 | 6f 70 20 69 73 20 65 6d |lse if p|op is em|
|00002010| 70 74 79 20 74 68 65 6e | 0d 70 75 74 20 6f 70 65 |pty then|.put ope|
|00002020| 6e 50 6f 72 74 28 22 6d | 61 69 6c 22 2c 20 6d 61 |nPort("m|ail", ma|
|00002030| 69 6c 48 6f 73 74 2c 20 | 31 30 39 29 20 69 6e 74 |ilHost, |109) int|
|00002040| 6f 20 70 6f 70 0d 67 65 | 74 20 52 65 73 70 6f 6e |o pop.ge|t Respon|
|00002050| 73 65 28 70 6f 70 2c 20 | 22 22 2c 20 22 2b 22 29 |se(pop, |"", "+")|
|00002060| 0d 2d 2d 20 56 61 6c 69 | 64 61 74 65 20 74 68 65 |.-- Vali|date the|
|00002070| 20 75 73 65 72 0d 69 6e | 66 6f 72 6d 20 22 56 61 | user.in|form "Va|
|00002080| 6c 69 64 61 74 69 6e 67 | 20 75 73 65 72 3a 20 20 |lidating| user:  |
|00002090| 22 20 26 20 75 73 65 72 | 49 44 20 26 20 22 2e 2e |" & user|ID & "..|
|000020a0| 2e 2e 2e 22 0d 72 65 70 | 65 61 74 20 77 68 69 6c |...".rep|eat whil|
|000020b0| 65 20 69 74 20 3c 3e 20 | 65 6d 70 74 79 20 61 6e |e it <> |empty an|
|000020c0| 64 20 69 74 20 3c 3e 20 | 22 52 65 63 6f 6e 66 69 |d it <> |"Reconfi|
|000020d0| 67 75 72 65 22 0d 69 66 | 20 69 74 20 3d 20 22 54 |gure".if| it = "T|
|000020e0| 72 79 20 61 67 61 69 6e | 22 20 6f 72 20 70 61 73 |ry again|" or pas|
|000020f0| 73 77 64 20 3d 20 65 6d | 70 74 79 20 74 68 65 6e |swd = em|pty then|
|00002100| 0d 70 75 74 20 50 61 73 | 73 77 6f 72 64 28 22 45 |.put Pas|sword("E|
|00002110| 6e 74 65 72 20 79 6f 75 | 72 20 70 61 73 73 77 6f |nter you|r passwo|
|00002120| 72 64 3a 22 29 20 69 6e | 74 6f 20 70 61 73 73 77 |rd:") in|to passw|
|00002130| 64 0d 65 6e 64 20 69 66 | 0d 69 66 20 70 61 73 73 |d.end if|.if pass|
|00002140| 77 64 20 3c 3e 20 65 6d | 70 74 79 20 74 68 65 6e |wd <> em|pty then|
|00002150| 0d 67 65 74 20 52 65 73 | 70 6f 6e 73 65 28 70 6f |.get Res|ponse(po|
|00002160| 70 2c 20 22 75 73 65 72 | 22 20 26 26 20 75 73 65 |p, "user|" && use|
|00002170| 72 49 44 2c 20 22 2b 22 | 2c 20 36 30 29 0d 69 66 |rID, "+"|, 60).if|
|00002180| 20 69 74 20 3c 3e 20 65 | 6d 70 74 79 20 74 68 65 | it <> e|mpty the|
|00002190| 6e 0d 67 65 74 20 52 65 | 73 70 6f 6e 73 65 28 70 |n.get Re|sponse(p|
|000021a0| 6f 70 2c 20 22 70 61 73 | 73 22 20 26 26 20 70 61 |op, "pas|s" && pa|
|000021b0| 73 73 77 64 2c 20 22 2b | 22 2c 20 36 30 29 0d 65 |sswd, "+|", 60).e|
|000021c0| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 69 66 20 |nd if.en|d if.if |
|000021d0| 69 74 20 3c 3e 20 65 6d | 70 74 79 20 61 6e 64 20 |it <> em|pty and |
|000021e0| 70 61 73 73 77 64 20 3c | 3e 20 65 6d 70 74 79 20 |passwd <|> empty |
|000021f0| 74 68 65 6e 20 65 78 69 | 74 20 72 65 70 65 61 74 |then exi|t repeat|
|00002200| 0d 2d 2d 20 46 61 69 6c | 65 64 20 2d 20 6e 6f 74 |.-- Fail|ed - not|
|00002210| 69 66 79 20 75 73 65 72 | 20 61 6e 64 20 72 65 74 |ify user| and ret|
|00002220| 72 79 20 2f 20 72 65 63 | 6f 6e 66 69 67 75 72 65 |ry / rec|onfigure|
|00002230| 0d 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 |.put emp|ty into |
|00002240| 70 61 73 73 77 64 0d 61 | 6e 73 77 65 72 20 22 55 |passwd.a|nswer "U|
|00002250| 73 65 72 20 49 44 2f 70 | 61 73 73 77 6f 72 64 20 |ser ID/p|assword |
|00002260| 6e 6f 74 20 61 63 63 65 | 70 74 65 64 22 20 77 69 |not acce|pted" wi|
|00002270| 74 68 20 c2 0d 22 52 65 | 63 6f 6e 66 69 67 75 72 |th .."Re|configur|
|00002280| 65 22 20 6f 72 20 22 54 | 72 79 20 61 67 61 69 6e |e" or "T|ry again|
|00002290| 22 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 69 66 20 |".end re|peat.if |
|000022a0| 69 74 20 69 73 20 22 52 | 65 63 6f 6e 66 69 67 75 |it is "R|econfigu|
|000022b0| 72 65 22 20 74 68 65 6e | 0d 63 6c 6f 73 65 50 6f |re" then|.closePo|
|000022c0| 70 0d 72 65 63 6f 6e 66 | 69 67 75 72 65 0d 65 6e |p.reconf|igure.en|
|000022d0| 64 20 69 66 0d 70 75 74 | 20 30 20 69 6e 74 6f 20 |d if.put| 0 into |
|000022e0| 63 75 72 72 4d 65 73 67 | 0d 69 6e 66 6f 72 6d 20 |currMesg|.inform |
|000022f0| 22 44 6f 6e 65 22 0d 65 | 6e 64 20 69 66 0d 65 6e |"Done".e|nd if.en|
|00002300| 64 20 6f 70 65 6e 50 6f | 70 0d 0d 6f 6e 20 63 6c |d openPo|p..on cl|
|00002310| 6f 73 65 50 6f 70 0d 67 | 6c 6f 62 61 6c 20 70 6f |osePop.g|lobal po|
|00002320| 70 0d 69 66 20 70 6f 70 | 20 69 73 20 6e 6f 74 20 |p.if pop| is not |
|00002330| 65 6d 70 74 79 20 74 68 | 65 6e 0d 67 65 74 20 52 |empty th|en.get R|
|00002340| 65 73 70 6f 6e 73 65 28 | 70 6f 70 2c 20 22 71 75 |esponse(|pop, "qu|
|00002350| 69 74 22 2c 20 22 2b 22 | 29 0d 54 43 50 52 65 6c |it", "+"|).TCPRel|
|00002360| 65 61 73 65 20 70 6f 70 | 0d 70 75 74 20 65 6d 70 |ease pop|.put emp|
|00002370| 74 79 20 69 6e 74 6f 20 | 70 6f 70 0d 65 6e 64 20 |ty into |pop.end |
|00002380| 69 66 0d 65 6e 64 20 63 | 6c 6f 73 65 50 6f 70 0d |if.end c|losePop.|
|00002390| 0d 6f 6e 20 6f 70 65 6e | 53 6d 74 70 0d 67 6c 6f |.on open|Smtp.glo|
|000023a0| 62 61 6c 20 6d 61 69 6c | 48 6f 73 74 2c 20 73 6d |bal mail|Host, sm|
|000023b0| 74 70 0d 69 66 20 73 6d | 74 70 20 69 73 20 65 6d |tp.if sm|tp is em|
|000023c0| 70 74 79 20 74 68 65 6e | 0d 70 75 74 20 6f 70 65 |pty then|.put ope|
|000023d0| 6e 50 6f 72 74 28 22 6d | 61 69 6c 22 2c 20 6d 61 |nPort("m|ail", ma|
|000023e0| 69 6c 48 6f 73 74 2c 20 | 32 35 29 20 69 6e 74 6f |ilHost, |25) into|
|000023f0| 20 73 6d 74 70 0d 67 65 | 74 20 52 65 73 70 6f 6e | smtp.ge|t Respon|
|00002400| 73 65 28 73 6d 74 70 2c | 20 22 22 2c 20 22 32 22 |se(smtp,| "", "2"|
|00002410| 2c 20 36 30 29 0d 69 66 | 20 69 74 20 69 73 20 65 |, 60).if| it is e|
|00002420| 6d 70 74 79 20 74 68 65 | 6e 20 63 6c 6f 73 65 53 |mpty the|n closeS|
|00002430| 6d 74 70 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 6f |mtp.end |if.end o|
|00002440| 70 65 6e 53 6d 74 70 0d | 0d 6f 6e 20 63 6c 6f 73 |penSmtp.|.on clos|
|00002450| 65 53 6d 74 70 0d 67 6c | 6f 62 61 6c 20 73 6d 74 |eSmtp.gl|obal smt|
|00002460| 70 0d 69 66 20 73 6d 74 | 70 20 69 73 20 6e 6f 74 |p.if smt|p is not|
|00002470| 20 65 6d 70 74 79 20 74 | 68 65 6e 0d 67 65 74 20 | empty t|hen.get |
|00002480| 52 65 73 70 6f 6e 73 65 | 28 73 6d 74 70 2c 20 22 |Response|(smtp, "|
|00002490| 71 75 69 74 22 2c 20 22 | 32 22 29 0d 54 43 50 52 |quit", "|2").TCPR|
|000024a0| 65 6c 65 61 73 65 20 73 | 6d 74 70 0d 70 75 74 20 |elease s|mtp.put |
|000024b0| 65 6d 70 74 79 20 69 6e | 74 6f 20 73 6d 74 70 0d |empty in|to smtp.|
|000024c0| 65 6e 64 20 69 66 0d 65 | 6e 64 20 63 6c 6f 73 65 |end if.e|nd close|
|000024d0| 53 6d 74 70 0d 0d 6f 6e | 20 6f 70 65 6e 4e 6e 74 |Smtp..on| openNnt|
|000024e0| 70 0d 67 6c 6f 62 61 6c | 20 6e 6e 74 70 2c 20 6e |p.global| nntp, n|
|000024f0| 65 77 73 48 6f 73 74 0d | 69 66 20 6e 6e 74 70 20 |ewsHost.|if nntp |
|00002500| 69 73 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 70 75 |is empty| then.pu|
|00002510| 74 20 6f 70 65 6e 50 6f | 72 74 28 22 6e 65 77 73 |t openPo|rt("news|
|00002520| 22 2c 20 6e 65 77 73 48 | 6f 73 74 2c 20 31 31 39 |", newsH|ost, 119|
|00002530| 29 20 69 6e 74 6f 20 6e | 6e 74 70 0d 67 65 74 20 |) into n|ntp.get |
|00002540| 52 65 73 70 6f 6e 73 65 | 28 6e 6e 74 70 2c 20 22 |Response|(nntp, "|
|00002550| 22 2c 20 22 32 22 2c 20 | 36 30 29 0d 69 66 20 69 |", "2", |60).if i|
|00002560| 74 20 69 73 20 65 6d 70 | 74 79 20 74 68 65 6e 20 |t is emp|ty then |
|00002570| 63 6c 6f 73 65 4e 6e 74 | 70 0d 65 6e 64 20 69 66 |closeNnt|p.end if|
|00002580| 0d 65 6e 64 20 6f 70 65 | 6e 4e 6e 74 70 0d 0d 6f |.end ope|nNntp..o|
|00002590| 6e 20 63 6c 6f 73 65 4e | 6e 74 70 0d 67 6c 6f 62 |n closeN|ntp.glob|
|000025a0| 61 6c 20 6e 6e 74 70 0d | 69 66 20 6e 6e 74 70 20 |al nntp.|if nntp |
|000025b0| 69 73 20 6e 6f 74 20 65 | 6d 70 74 79 20 74 68 65 |is not e|mpty the|
|000025c0| 6e 0d 67 65 74 20 52 65 | 73 70 6f 6e 73 65 28 6e |n.get Re|sponse(n|
|000025d0| 6e 74 70 2c 20 22 71 75 | 69 74 22 2c 20 22 32 22 |ntp, "qu|it", "2"|
|000025e0| 29 0d 54 43 50 52 65 6c | 65 61 73 65 20 6e 6e 74 |).TCPRel|ease nnt|
|000025f0| 70 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |p.put em|pty into|
|00002600| 20 6e 6e 74 70 0d 65 6e | 64 20 69 66 0d 65 6e 64 | nntp.en|d if.end|
|00002610| 20 63 6c 6f 73 65 4e 6e | 74 70 0d 0d 0d 66 75 6e | closeNn|tp...fun|
|00002620| 63 74 69 6f 6e 20 52 65 | 73 70 6f 6e 73 65 20 63 |ction Re|sponse c|
|00002630| 6f 6e 6e 65 63 74 69 6f | 6e 2c 6d 65 73 67 2c 4f |onnectio|n,mesg,O|
|00002640| 4b 2c 6e 20 20 20 20 2d | 2d 20 67 65 74 20 72 65 |K,n    -|- get re|
|00002650| 73 70 6f 6e 73 65 20 74 | 6f 20 61 20 63 6f 6d 6d |sponse t|o a comm|
|00002660| 61 6e 64 0d 67 6c 6f 62 | 61 6c 20 64 69 73 63 61 |and.glob|al disca|
|00002670| 72 64 49 6e 63 6f 6d 69 | 6e 67 0d 69 66 20 63 6f |rdIncomi|ng.if co|
|00002680| 6e 6e 65 63 74 69 6f 6e | 20 69 73 20 65 6d 70 74 |nnection| is empt|
|00002690| 79 20 74 68 65 6e 0d 61 | 6e 73 77 65 72 20 22 43 |y then.a|nswer "C|
|000026a0| 68 61 6e 6e 65 6c 20 69 | 73 20 63 6c 6f 73 65 64 |hannel i|s closed|
|000026b0| 20 74 6f 20 63 6f 6d 6d | 75 6e 69 63 61 74 69 6f | to comm|unicatio|
|000026c0| 6e 22 20 77 69 74 68 20 | 22 4f 4b 22 0d 72 65 74 |n" with |"OK".ret|
|000026d0| 75 72 6e 20 65 6d 70 74 | 79 0d 65 6e 64 20 69 66 |urn empt|y.end if|
|000026e0| 0d 69 66 20 6d 65 73 67 | 20 69 73 20 6e 6f 74 20 |.if mesg| is not |
|000026f0| 65 6d 70 74 79 20 74 68 | 65 6e 0d 63 6c 65 61 72 |empty th|en.clear|
|00002700| 43 6f 6e 6e 20 63 6f 6e | 6e 65 63 74 69 6f 6e 0d |Conn con|nection.|
|00002710| 70 75 74 20 66 61 6c 73 | 65 20 69 6e 74 6f 20 64 |put fals|e into d|
|00002720| 69 73 63 61 72 64 49 6e | 63 6f 6d 69 6e 67 0d 54 |iscardIn|coming.T|
|00002730| 43 50 53 65 6e 64 20 63 | 6f 6e 6e 65 63 74 69 6f |CPSend c|onnectio|
|00002740| 6e 2c 20 28 6d 65 73 67 | 20 26 20 72 65 74 75 72 |n, (mesg| & retur|
|00002750| 6e 20 26 20 6c 69 6e 65 | 46 65 65 64 29 0d 69 66 |n & line|Feed).if|
|00002760| 20 74 68 65 20 72 65 73 | 75 6c 74 20 69 73 20 6e | the res|ult is n|
|00002770| 6f 74 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 70 75 |ot empty| then.pu|
|00002780| 74 20 22 52 65 73 75 6c | 74 3a 22 20 26 26 20 74 |t "Resul|t:" && t|
|00002790| 68 65 20 72 65 73 75 6c | 74 0d 72 65 74 75 72 6e |he resul|t.return|
|000027a0| 20 65 6d 70 74 79 0d 65 | 6e 64 20 69 66 0d 65 6e | empty.e|nd if.en|
|000027b0| 64 20 69 66 0d 67 65 74 | 20 4f 4b 0d 69 66 20 69 |d if.get| OK.if i|
|000027c0| 74 20 69 73 20 6e 6f 74 | 20 65 6d 70 74 79 20 74 |t is not| empty t|
|000027d0| 68 65 6e 0d 69 66 20 6e | 20 69 73 20 65 6d 70 74 |hen.if n| is empt|
|000027e0| 79 20 74 68 65 6e 20 70 | 75 74 20 33 30 20 69 6e |y then p|ut 30 in|
|000027f0| 74 6f 20 6e 20 20 20 20 | 2d 2d 20 64 65 66 61 75 |to n    |-- defau|
|00002800| 6c 74 20 6e 6f 20 73 65 | 63 73 2e 20 74 6f 20 77 |lt no se|cs. to w|
|00002810| 61 69 74 0d 72 65 70 65 | 61 74 20 6e 20 74 69 6d |ait.repe|at n tim|
|00002820| 65 73 0d 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |es.set c|ursor to|
|00002830| 20 62 75 73 79 0d 67 65 | 74 20 54 43 50 52 65 63 | busy.ge|t TCPRec|
|00002840| 76 55 70 74 6f 28 63 6f | 6e 6e 65 63 74 69 6f 6e |vUpto(co|nnection|
|00002850| 2c 20 6c 69 6e 65 46 65 | 65 64 2c 20 36 30 2c 20 |, lineFe|ed, 60, |
|00002860| 65 6d 70 74 79 29 0d 69 | 66 20 69 74 20 69 73 20 |empty).i|f it is |
|00002870| 6e 6f 74 20 65 6d 70 74 | 79 20 74 68 65 6e 20 65 |not empt|y then e|
|00002880| 78 69 74 20 72 65 70 65 | 61 74 0d 65 6e 64 20 72 |xit repe|at.end r|
|00002890| 65 70 65 61 74 0d 69 66 | 20 69 74 20 69 73 20 65 |epeat.if| it is e|
|000028a0| 6d 70 74 79 20 74 68 65 | 6e 0d 61 6e 73 77 65 72 |mpty the|n.answer|
|000028b0| 20 22 45 72 72 6f 72 3a | 20 4e 6f 20 72 65 73 70 | "Error:| No resp|
|000028c0| 6f 6e 73 65 22 20 77 69 | 74 68 20 22 4f 4b 22 0d |onse" wi|th "OK".|
|000028d0| 67 65 74 20 65 6d 70 74 | 79 0d 65 6c 73 65 20 69 |get empt|y.else i|
|000028e0| 66 20 63 68 61 72 20 31 | 20 6f 66 20 77 6f 72 64 |f char 1| of word|
|000028f0| 20 31 20 6f 66 20 69 74 | 20 69 73 20 6e 6f 74 20 | 1 of it| is not |
|00002900| 4f 4b 20 74 68 65 6e 0d | 61 6e 73 77 65 72 20 22 |OK then.|answer "|
|00002910| 45 72 72 6f 72 3a 22 20 | 26 26 20 69 74 20 77 69 |Error:" |&& it wi|
|00002920| 74 68 20 22 4f 4b 22 0d | 67 65 74 20 65 6d 70 74 |th "OK".|get empt|
|00002930| 79 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |y.end if|.end if.|
|00002940| 72 65 74 75 72 6e 20 69 | 74 0d 65 6e 64 20 52 65 |return i|t.end Re|
|00002950| 73 70 6f 6e 73 65 0d 0d | 0d 66 75 6e 63 74 69 6f |sponse..|.functio|
|00002960| 6e 20 74 68 65 4d 65 73 | 67 20 63 6f 6e 6e 65 63 |n theMes|g connec|
|00002970| 74 69 6f 6e 20 20 20 20 | 20 20 20 20 2d 2d 20 67 |tion    |    -- g|
|00002980| 65 74 20 74 68 65 20 6d | 65 73 73 61 67 65 20 75 |et the m|essage u|
|00002990| 70 20 74 6f 20 22 2e 22 | 0d 70 75 74 20 65 6d 70 |p to "."|.put emp|
|000029a0| 74 79 20 69 6e 74 6f 20 | 6d 65 73 67 20 20 20 20 |ty into |mesg    |
|000029b0| 20 20 20 20 20 2d 2d 20 | 6e 6f 20 6d 65 73 73 61 |     -- |no messa|
|000029c0| 67 65 20 79 65 74 0d 70 | 75 74 20 65 6d 70 74 79 |ge yet.p|ut empty|
|000029d0| 20 69 6e 74 6f 20 69 6e | 63 72 20 20 20 20 20 20 | into in|cr      |
|000029e0| 20 20 20 2d 2d 20 6e 6f | 20 6c 61 73 74 20 6c 69 |   -- no| last li|
|000029f0| 6e 65 20 79 65 74 0d 70 | 75 74 20 30 20 69 6e 74 |ne yet.p|ut 0 int|
|00002a00| 6f 20 6d 65 73 67 4c 65 | 6e 20 20 20 20 20 20 20 |o mesgLe|n       |
|00002a10| 20 20 20 2d 2d 20 6c 65 | 6e 67 74 68 20 6f 66 20 |   -- le|ngth of |
|00002a20| 6d 65 73 73 61 67 65 20 | 69 6e 69 74 69 61 6c 6c |message |initiall|
|00002a30| 79 20 7a 65 72 6f 0d 70 | 75 74 20 65 6d 70 74 79 |y zero.p|ut empty|
|00002a40| 20 69 6e 74 6f 20 73 61 | 76 65 46 69 6c 65 20 20 | into sa|veFile  |
|00002a50| 20 20 20 2d 2d 20 66 69 | 6c 65 20 66 6f 72 20 73 |   -- fi|le for s|
|00002a60| 61 76 69 6e 67 20 6f 76 | 65 72 6c 65 6e 67 74 68 |aving ov|erlength|
|00002a70| 20 6d 65 73 67 0d 70 75 | 74 20 66 61 6c 73 65 20 | mesg.pu|t false |
|00002a80| 69 6e 74 6f 20 64 69 73 | 63 61 72 64 52 65 73 74 |into dis|cardRest|
|00002a90| 20 20 2d 2d 20 6e 6f 74 | 20 64 69 73 63 61 72 64 |  -- not| discard|
|00002aa0| 69 6e 67 20 6f 76 65 72 | 6c 65 6e 67 74 68 20 6d |ing over|length m|
|00002ab0| 65 73 67 0d 70 75 74 20 | 74 68 65 20 73 65 63 6f |esg.put |the seco|
|00002ac0| 6e 64 73 20 69 6e 74 6f | 20 63 75 72 72 54 69 6d |nds into| currTim|
|00002ad0| 65 0d 70 75 74 20 63 75 | 72 72 54 69 6d 65 20 69 |e.put cu|rrTime i|
|00002ae0| 6e 74 6f 20 6c 61 73 74 | 54 69 6d 65 0d 0d 72 65 |nto last|Time..re|
|00002af0| 70 65 61 74 20 20 20 20 | 20 20 20 20 20 20 20 20 |peat    |        |
|00002b00| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 20 6e 6f 74 |        |  -- not|
|00002b10| 20 79 65 74 20 65 6e 64 | 20 6f 66 20 6d 65 73 73 | yet end| of mess|
|00002b20| 61 67 65 0d 67 65 74 20 | 74 68 65 20 73 65 63 6f |age.get |the seco|
|00002b30| 6e 64 73 0d 69 66 20 69 | 74 20 69 73 20 6e 6f 74 |nds.if i|t is not|
|00002b40| 20 63 75 72 72 54 69 6d | 65 20 74 68 65 6e 0d 73 | currTim|e then.s|
|00002b50| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 62 75 73 |et curso|r to bus|
|00002b60| 79 0d 70 75 74 20 69 74 | 20 69 6e 74 6f 20 63 75 |y.put it| into cu|
|00002b70| 72 72 54 69 6d 65 0d 69 | 66 20 63 75 72 72 54 69 |rrTime.i|f currTi|
|00002b80| 6d 65 2d 6c 61 73 74 54 | 69 6d 65 20 3e 20 31 30 |me-lastT|ime > 10|
|00002b90| 20 74 68 65 6e 0d 61 6e | 73 77 65 72 20 22 45 72 | then.an|swer "Er|
|00002ba0| 72 6f 72 3a 20 4d 65 73 | 73 61 67 65 20 74 69 6d |ror: Mes|sage tim|
|00002bb0| 65 64 20 6f 75 74 22 20 | 77 69 74 68 20 22 4f 4b |ed out" |with "OK|
|00002bc0| 22 0d 65 78 69 74 20 72 | 65 70 65 61 74 0d 65 6e |".exit r|epeat.en|
|00002bd0| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 67 65 74 20 |d if.end| if.get |
|00002be0| 54 43 50 43 68 61 72 73 | 41 76 61 69 6c 61 62 6c |TCPChars|Availabl|
|00002bf0| 65 28 63 6f 6e 6e 65 63 | 74 69 6f 6e 29 0d 69 66 |e(connec|tion).if|
|00002c00| 20 69 74 20 3e 20 30 20 | 74 68 65 6e 0d 70 75 74 | it > 0 |then.put|
|00002c10| 20 54 43 50 52 65 63 76 | 43 68 61 72 73 28 63 6f | TCPRecv|Chars(co|
|00002c20| 6e 6e 65 63 74 69 6f 6e | 2c 69 74 29 20 61 66 74 |nnection|,it) aft|
|00002c30| 65 72 20 69 6e 63 72 0d | 69 66 20 66 69 72 73 74 |er incr.|if first|
|00002c40| 20 63 68 61 72 20 6f 66 | 20 69 6e 63 72 20 69 73 | char of| incr is|
|00002c50| 20 6e 6f 74 20 6c 69 6e | 65 46 65 65 64 20 74 68 | not lin|eFeed th|
|00002c60| 65 6e 0d 70 75 74 20 6c | 69 6e 65 46 65 65 64 20 |en.put l|ineFeed |
|00002c70| 62 65 66 6f 72 65 20 69 | 6e 63 72 0d 65 6e 64 20 |before i|ncr.end |
|00002c80| 69 66 0d 70 75 74 20 66 | 6f 72 6d 61 74 28 22 25 |if.put f|ormat("%|
|00002c90| 31 4c 30 25 31 30 30 3f | 22 2c 69 6e 63 72 29 20 |1L0%100?|",incr) |
|00002ca0| 69 6e 74 6f 20 69 6e 63 | 72 20 20 20 20 2d 2d 20 |into inc|r    -- |
|00002cb0| 64 69 73 63 61 72 64 20 | 4c 46 27 73 0d 0d 61 64 |discard |LF's..ad|
|00002cc0| 64 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 68 61 72 |d number| of char|
|00002cd0| 73 20 6f 66 20 69 6e 63 | 72 20 74 6f 20 6d 65 73 |s of inc|r to mes|
|00002ce0| 67 4c 65 6e 0d 69 66 20 | 6d 65 73 67 4c 65 6e 20 |gLen.if |mesgLen |
|00002cf0| 3e 20 33 30 30 30 30 20 | 74 68 65 6e 20 20 20 20 |> 30000 |then    |
|00002d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d |        |       -|
|00002d10| 2d 20 6f 76 65 72 6c 65 | 6e 67 74 68 20 6d 65 73 |- overle|ngth mes|
|00002d20| 67 73 0d 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |gs.repea|t while |
|00002d30| 6e 6f 74 20 64 69 73 63 | 61 72 64 52 65 73 74 20 |not disc|ardRest |
|00002d40| 61 6e 64 20 73 61 76 65 | 46 69 6c 65 20 69 73 20 |and save|File is |
|00002d50| 65 6d 70 74 79 0d 61 6e | 73 77 65 72 20 22 4d 65 |empty.an|swer "Me|
|00002d60| 73 73 61 67 65 20 65 78 | 63 65 65 64 73 20 33 30 |ssage ex|ceeds 30|
|00002d70| 30 30 30 20 63 68 61 72 | 61 63 74 65 72 73 22 20 |000 char|acters" |
|00002d80| 77 69 74 68 20 c2 0d 22 | 44 69 73 63 61 72 64 20 |with .."|Discard |
|00002d90| 72 65 73 74 22 20 6f 72 | 20 22 53 61 76 65 20 74 |rest" or| "Save t|
|00002da0| 6f 20 66 69 6c 65 22 0d | 69 66 20 69 74 20 69 73 |o file".|if it is|
|00002db0| 20 22 44 69 73 63 61 72 | 64 20 72 65 73 74 22 20 | "Discar|d rest" |
|00002dc0| 74 68 65 6e 0d 70 75 74 | 20 74 72 75 65 20 69 6e |then.put| true in|
|00002dd0| 74 6f 20 64 69 73 63 61 | 72 64 52 65 73 74 0d 64 |to disca|rdRest.d|
|00002de0| 65 6c 65 74 65 20 63 68 | 61 72 20 32 39 30 30 30 |elete ch|ar 29000|
|00002df0| 20 74 6f 20 28 6e 75 6d | 62 65 72 20 6f 66 20 63 | to (num|ber of c|
|00002e00| 68 61 72 73 20 6f 66 20 | 6d 65 73 67 29 20 6f 66 |hars of |mesg) of|
|00002e10| 20 6d 65 73 67 0d 70 75 | 74 20 72 65 74 75 72 6e | mesg.pu|t return|
|00002e20| 20 26 20 72 65 74 75 72 | 6e 20 26 20 22 2a 2a 2a | & retur|n & "***|
|00002e30| 20 52 65 73 74 20 6f 66 | 20 6d 65 73 73 61 67 65 | Rest of| message|
|00002e40| 20 64 69 73 63 61 72 64 | 65 64 20 62 79 20 4d 65 | discard|ed by Me|
|00002e50| 77 73 20 2a 2a 2a 22 c2 | 0d 61 66 74 65 72 20 6d |ws ***".|.after m|
|00002e60| 65 73 67 0d 65 6c 73 65 | 0d 70 75 74 20 67 65 74 |esg.else|.put get|
|00002e70| 46 69 6c 65 4e 61 6d 65 | 28 22 22 2c 22 22 2c 22 |FileName|("","","|
|00002e80| 53 61 76 65 20 74 6f 20 | 66 69 6c 65 3a 22 29 20 |Save to |file:") |
|00002e90| 69 6e 74 6f 20 73 61 76 | 65 46 69 6c 65 0d 69 66 |into sav|eFile.if|
|00002ea0| 20 73 61 76 65 46 69 6c | 65 20 69 73 20 65 6d 70 | saveFil|e is emp|
|00002eb0| 74 79 20 74 68 65 6e 20 | 6e 65 78 74 20 72 65 70 |ty then |next rep|
|00002ec0| 65 61 74 0d 77 72 69 74 | 65 20 6d 65 73 67 20 74 |eat.writ|e mesg t|
|00002ed0| 6f 20 66 69 6c 65 20 73 | 61 76 65 46 69 6c 65 0d |o file s|aveFile.|
|00002ee0| 67 65 74 20 65 78 74 72 | 61 63 74 48 65 61 64 28 |get extr|actHead(|
|00002ef0| 6d 65 73 67 29 0d 70 75 | 74 20 6c 69 6e 65 20 31 |mesg).pu|t line 1|
|00002f00| 20 74 6f 20 69 74 20 6f | 66 20 6d 65 73 67 20 69 | to it o|f mesg i|
|00002f10| 6e 74 6f 20 6d 65 73 67 | 0d 70 75 74 20 72 65 74 |nto mesg|.put ret|
|00002f20| 75 72 6e 20 26 20 72 65 | 74 75 72 6e 20 26 20 22 |urn & re|turn & "|
|00002f30| 2a 2a 2a 20 4d 65 73 73 | 61 67 65 20 73 61 76 65 |*** Mess|age save|
|00002f40| 64 20 74 6f 20 66 69 6c | 65 3a 22 20 26 26 20 73 |d to fil|e:" && s|
|00002f50| 61 76 65 46 69 6c 65 20 | c2 0d 26 26 20 22 2a 2a |aveFile |..&& "**|
|00002f60| 2a 22 20 61 66 74 65 72 | 20 6d 65 73 67 0d 65 6e |*" after| mesg.en|
|00002f70| 64 20 69 66 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |d if.end| repeat.|
|00002f80| 65 6e 64 20 69 66 0d 67 | 65 74 20 6e 75 6d 62 65 |end if.g|et numbe|
|00002f90| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 66 20 69 6e |r of lin|es of in|
|00002fa0| 63 72 0d 69 66 20 69 74 | 20 3e 20 31 20 74 68 65 |cr.if it| > 1 the|
|00002fb0| 6e 0d 69 66 20 73 61 76 | 65 46 69 6c 65 20 69 73 |n.if sav|eFile is|
|00002fc0| 20 6e 6f 74 20 65 6d 70 | 74 79 20 74 68 65 6e 0d | not emp|ty then.|
|00002fd0| 77 72 69 74 65 20 6c 69 | 6e 65 20 31 20 74 6f 20 |write li|ne 1 to |
|00002fe0| 28 69 74 2d 31 29 20 6f | 66 20 69 6e 63 72 20 26 |(it-1) o|f incr &|
|00002ff0| 20 72 65 74 75 72 6e 20 | 74 6f 20 66 69 6c 65 20 | return |to file |
|00003000| 73 61 76 65 46 69 6c 65 | 0d 65 6c 73 65 20 69 66 |saveFile|.else if|
|00003010| 20 6e 6f 74 20 64 69 73 | 63 61 72 64 52 65 73 74 | not dis|cardRest|
|00003020| 20 74 68 65 6e 0d 70 75 | 74 20 6c 69 6e 65 20 31 | then.pu|t line 1|
|00003030| 20 74 6f 20 28 69 74 2d | 31 29 20 6f 66 20 69 6e | to (it-|1) of in|
|00003040| 63 72 20 26 20 72 65 74 | 75 72 6e 20 61 66 74 65 |cr & ret|urn afte|
|00003050| 72 20 6d 65 73 67 0d 65 | 6e 64 20 69 66 0d 64 65 |r mesg.e|nd if.de|
|00003060| 6c 65 74 65 20 6c 69 6e | 65 20 31 20 74 6f 20 28 |lete lin|e 1 to (|
|00003070| 69 74 2d 31 29 20 6f 66 | 20 69 6e 63 72 0d 65 6e |it-1) of| incr.en|
|00003080| 64 20 69 66 0d 0d 70 75 | 74 20 74 68 65 20 73 65 |d if..pu|t the se|
|00003090| 63 6f 6e 64 73 20 69 6e | 74 6f 20 6c 61 73 74 54 |conds in|to lastT|
|000030a0| 69 6d 65 0d 69 66 20 69 | 6e 63 72 20 69 73 20 22 |ime.if i|ncr is "|
|000030b0| 2e 22 20 26 20 72 65 74 | 75 72 6e 20 74 68 65 6e |." & ret|urn then|
|000030c0| 20 65 78 69 74 20 72 65 | 70 65 61 74 20 20 20 20 | exit re|peat    |
|000030d0| 2d 2d 20 65 6e 64 20 6f | 66 20 6d 65 73 73 61 67 |-- end o|f messag|
|000030e0| 65 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 72 65 70 |e.end if|.end rep|
|000030f0| 65 61 74 0d 0d 69 66 20 | 73 61 76 65 46 69 6c 65 |eat..if |saveFile|
|00003100| 20 69 73 20 6e 6f 74 20 | 65 6d 70 74 79 20 74 68 | is not |empty th|
|00003110| 65 6e 20 63 6c 6f 73 65 | 20 66 69 6c 65 20 73 61 |en close| file sa|
|00003120| 76 65 46 69 6c 65 0d 72 | 65 74 75 72 6e 20 6d 65 |veFile.r|eturn me|
|00003130| 73 67 0d 65 6e 64 20 74 | 68 65 4d 65 73 67 0d 0d |sg.end t|heMesg..|
|00003140| 0d 2d 2d 20 43 61 74 63 | 68 20 6f 70 65 72 61 74 |.-- Catc|h operat|
|00003150| 69 6f 6e 73 20 74 68 61 | 74 20 6d 69 67 68 74 20 |ions tha|t might |
|00003160| 61 6c 74 65 72 20 74 68 | 65 20 73 74 61 63 6b 0d |alter th|e stack.|
|00003170| 0d 6f 6e 20 53 6f 72 74 | 0d 61 6e 73 77 65 72 20 |.on Sort|.answer |
|00003180| 22 44 6f 20 6e 6f 74 20 | 6d 6f 64 69 66 79 20 74 |"Do not |modify t|
|00003190| 68 65 20 73 74 61 63 6b | 20 6f 72 67 61 6e 69 73 |he stack| organis|
|000031a0| 61 74 69 6f 6e 22 20 77 | 69 74 68 20 22 4f 4b 22 |ation" w|ith "OK"|
|000031b0| 0d 65 6e 64 20 53 6f 72 | 74 0d 0d 6f 6e 20 64 6f |.end Sor|t..on do|
|000031c0| 4d 65 6e 75 20 77 68 61 | 74 0d 67 6c 6f 62 61 6c |Menu wha|t.global|
|000031d0| 20 6f 6c 64 4c 65 76 65 | 6c 2c 20 71 75 69 74 74 | oldLeve|l, quitt|
|000031e0| 69 6e 67 0d 70 75 74 20 | 74 68 65 20 75 73 65 72 |ing.put |the user|
|000031f0| 4c 65 76 65 6c 20 69 6e | 74 6f 20 6f 6c 64 4c 65 |Level in|to oldLe|
|00003200| 76 65 6c 0d 67 65 74 20 | 65 6d 70 74 79 20 20 20 |vel.get |empty   |
|00003210| 20 20 20 20 20 20 20 20 | 20 20 20 20 2d 2d 20 73 |        |    -- s|
|00003220| 65 74 20 74 6f 20 65 6d | 70 74 79 20 74 6f 20 69 |et to em|pty to i|
|00003230| 67 6e 6f 72 65 20 63 6f | 6d 6d 61 6e 64 0d 69 66 |gnore co|mmand.if|
|00003240| 20 77 6f 72 64 20 31 20 | 6f 66 20 77 68 61 74 20 | word 1 |of what |
|00003250| 69 73 20 22 50 72 69 6e | 74 22 20 74 68 65 6e 0d |is "Prin|t" then.|
|00003260| 61 6e 73 77 65 72 20 22 | 54 68 69 73 20 77 69 6c |answer "|This wil|
|00003270| 6c 20 70 72 69 6e 74 20 | 63 61 72 64 20 70 69 63 |l print |card pic|
|00003280| 74 75 72 65 73 2c 20 6e | 6f 74 20 6d 65 73 73 61 |tures, n|ot messa|
|00003290| 67 65 20 74 65 78 74 22 | 20 c2 0d 77 69 74 68 20 |ge text"| ..with |
|000032a0| 22 4f 4b 22 20 20 6f 72 | 20 22 43 61 6e 63 65 6c |"OK"  or| "Cancel|
|000032b0| 22 0d 69 66 20 69 74 20 | 69 73 20 22 4f 4b 22 20 |".if it |is "OK" |
|000032c0| 74 68 65 6e 0d 67 65 74 | 20 65 6d 70 74 79 0d 65 |then.get| empty.e|
|000032d0| 6e 64 20 69 66 0d 65 6c | 73 65 20 69 66 20 77 6f |nd if.el|se if wo|
|000032e0| 72 64 20 32 20 6f 66 20 | 77 68 61 74 20 69 73 20 |rd 2 of |what is |
|000032f0| 22 43 61 72 64 22 20 6f | 72 20 77 68 61 74 20 69 |"Card" o|r what i|
|00003300| 73 20 22 55 6e 64 6f 22 | 20 74 68 65 6e 0d 61 6e |s "Undo"| then.an|
|00003310| 73 77 65 72 20 22 4d 6f | 64 69 66 79 20 6d 65 73 |swer "Mo|dify mes|
|00003320| 73 61 67 65 20 63 61 72 | 64 73 20 77 69 74 68 20 |sage car|ds with |
|00003330| 74 68 65 20 63 61 72 64 | 20 62 75 74 74 6f 6e 73 |the card| buttons|
|00003340| 22 20 77 69 74 68 20 22 | 4f 4b 22 0d 65 6c 73 65 |" with "|OK".else|
|00003350| 20 69 66 20 77 68 61 74 | 20 69 73 20 22 4f 70 65 | if what| is "Ope|
|00003360| 6e 20 53 74 61 63 6b 2e | 2e 2e 22 20 6f 72 20 77 |n Stack.|.." or w|
|00003370| 68 61 74 20 69 73 20 22 | 51 75 69 74 20 48 79 70 |hat is "|Quit Hyp|
|00003380| 65 72 43 61 72 64 22 20 | 74 68 65 6e 0d 61 62 6f |erCard" |then.abo|
|00003390| 75 74 54 6f 51 75 69 74 | 0d 65 6c 73 65 20 69 66 |utToQuit|.else if|
|000033a0| 20 77 6f 72 64 20 32 20 | 6f 66 20 77 68 61 74 20 | word 2 |of what |
|000033b0| 69 73 20 22 53 74 61 63 | 6b 2e 2e 2e 22 20 74 68 |is "Stac|k..." th|
|000033c0| 65 6e 0d 61 6e 73 77 65 | 72 20 22 44 6f 20 6e 6f |en.answe|r "Do no|
|000033d0| 74 20 6d 6f 64 69 66 79 | 20 74 68 65 20 73 74 61 |t modify| the sta|
|000033e0| 63 6b 20 6f 72 67 61 6e | 69 73 61 74 69 6f 6e 22 |ck organ|isation"|
|000033f0| 20 77 69 74 68 20 22 4f | 4b 22 0d 65 6e 64 20 69 | with "O|K".end i|
|00003400| 66 0d 69 66 20 69 74 20 | 69 73 20 65 6d 70 74 79 |f.if it |is empty|
|00003410| 20 74 68 65 6e 20 70 61 | 73 73 20 64 6f 4d 65 6e | then pa|ss doMen|
|00003420| 75 0d 65 6e 64 20 64 6f | 4d 65 6e 75 0d 0d 6f 6e |u.end do|Menu..on|
|00003430| 20 43 6f 6d 70 61 63 74 | 0d 70 75 74 20 74 68 65 | Compact|.put the|
|00003440| 20 75 73 65 72 6c 65 76 | 65 6c 20 69 6e 74 6f 20 | userlev|el into |
|00003450| 68 6f 6c 64 4c 65 76 65 | 6c 0d 69 6e 66 6f 72 6d |holdLeve|l.inform|
|00003460| 20 22 43 6f 6d 70 61 63 | 74 69 6e 67 20 74 68 65 | "Compac|ting the|
|00003470| 20 73 74 61 63 6b 20 74 | 6f 20 72 65 63 6f 76 65 | stack t|o recove|
|00003480| 72 20 73 70 61 63 65 2e | 2e 2e 22 0d 73 65 74 20 |r space.|..".set |
|00003490| 75 73 65 72 6c 65 76 65 | 6c 20 74 6f 20 33 0d 73 |userleve|l to 3.s|
|000034a0| 65 6e 64 20 22 64 6f 4d | 65 6e 75 20 43 6f 6d 70 |end "doM|enu Comp|
|000034b0| 61 63 74 20 73 74 61 63 | 6b 22 20 74 6f 20 48 79 |act stac|k" to Hy|
|000034c0| 70 65 72 43 61 72 64 0d | 73 65 74 20 75 73 65 72 |perCard.|set user|
|000034d0| 6c 65 76 65 6c 20 74 6f | 20 68 6f 6c 64 4c 65 76 |level to| holdLev|
|000034e0| 65 6c 0d 69 6e 66 6f 72 | 6d 20 22 44 6f 6e 65 22 |el.infor|m "Done"|
|000034f0| 0d 65 6e 64 20 43 6f 6d | 70 61 63 74 0d 0d 6f 6e |.end Com|pact..on|
|00003500| 20 4d 61 6b 65 52 6f 6f | 6d 0d 70 75 74 20 74 68 | MakeRoo|m.put th|
|00003510| 65 20 68 65 61 70 73 70 | 61 63 65 20 69 6e 74 6f |e heapsp|ace into|
|00003520| 20 74 68 0d 2d 2d 70 75 | 74 20 22 48 65 61 70 73 | th.--pu|t "Heaps|
|00003530| 70 61 63 65 3a 20 22 20 | 26 20 74 68 0d 69 66 20 |pace: " |& th.if |
|00003540| 74 68 20 3c 20 32 30 30 | 30 30 30 20 74 68 65 6e |th < 200|000 then|
|00003550| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 70 75 73 |.lock sc|reen.pus|
|00003560| 68 20 63 61 72 64 0d 67 | 6f 20 73 74 61 63 6b 20 |h card.g|o stack |
|00003570| 22 48 6f 6d 65 22 0d 70 | 6f 70 20 63 61 72 64 0d |"Home".p|op card.|
|00003580| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 65 6e |unlock s|creen.en|
|00003590| 64 20 69 66 0d 65 6e 64 | 20 4d 61 6b 65 52 6f 6f |d if.end| MakeRoo|
|000035a0| 6d 0d 0d 0d 6f 6e 20 69 | 6e 66 6f 72 6d 20 6d 65 |m...on i|nform me|
|000035b0| 73 73 0d 67 6c 6f 62 61 | 6c 20 73 74 61 74 75 73 |ss.globa|l status|
|000035c0| 49 6e 66 6f 0d 69 66 20 | 73 74 61 74 75 73 49 6e |Info.if |statusIn|
|000035d0| 66 6f 20 74 68 65 6e 0d | 70 75 74 20 6d 65 73 73 |fo then.|put mess|
|000035e0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 69 6e 66 6f |.end if.|end info|
|000035f0| 72 6d 0d 0d 0d 66 75 6e | 63 74 69 6f 6e 20 67 65 |rm...fun|ction ge|
|00003600| 74 46 69 6c 65 4e 61 6d | 65 20 73 75 67 67 65 73 |tFileNam|e sugges|
|00003610| 74 2c 20 70 72 6f 6d 70 | 74 31 2c 20 70 72 6f 6d |t, promp|t1, prom|
|00003620| 70 74 32 0d 67 6c 6f 62 | 61 6c 20 6d 61 69 6c 46 |pt2.glob|al mailF|
|00003630| 6f 6c 64 65 72 0d 0d 69 | 66 20 6d 61 69 6c 46 6f |older..i|f mailFo|
|00003640| 6c 64 65 72 20 69 73 20 | 6e 6f 74 20 65 6d 70 74 |lder is |not empt|
|00003650| 79 20 74 68 65 6e 0d 69 | 66 20 6c 61 73 74 20 63 |y then.i|f last c|
|00003660| 68 61 72 20 6f 66 20 6d | 61 69 6c 46 6f 6c 64 65 |har of m|ailFolde|
|00003670| 72 20 69 73 20 6e 6f 74 | 20 22 3a 22 20 74 68 65 |r is not| ":" the|
|00003680| 6e 20 70 75 74 20 22 3a | 22 20 62 65 66 6f 72 65 |n put ":|" before|
|00003690| 20 73 75 67 67 65 73 74 | 0d 70 75 74 20 6d 61 69 | suggest|.put mai|
|000036a0| 6c 46 6f 6c 64 65 72 20 | 62 65 66 6f 72 65 20 73 |lFolder |before s|
|000036b0| 75 67 67 65 73 74 0d 65 | 6e 64 20 69 66 0d 70 75 |uggest.e|nd if.pu|
|000036c0| 74 20 46 69 6c 65 4e 61 | 6d 65 28 73 75 67 67 65 |t FileNa|me(sugge|
|000036d0| 73 74 2c 70 72 6f 6d 70 | 74 31 2c 70 72 6f 6d 70 |st,promp|t1,promp|
|000036e0| 74 32 29 20 69 6e 74 6f | 20 66 6e 61 6d 65 0d 69 |t2) into| fname.i|
|000036f0| 66 20 66 6e 61 6d 65 20 | 69 73 20 6e 6f 74 20 65 |f fname |is not e|
|00003700| 6d 70 74 79 20 74 68 65 | 6e 0d 67 65 74 20 6c 61 |mpty the|n.get la|
|00003710| 73 74 20 77 6f 72 64 20 | 6f 66 20 66 6e 61 6d 65 |st word |of fname|
|00003720| 20 20 2d 2d 20 6e 65 77 | 2f 6f 6c 64 0d 64 65 6c |  -- new|/old.del|
|00003730| 65 74 65 20 6c 61 73 74 | 20 77 6f 72 64 20 6f 66 |ete last| word of|
|00003740| 20 66 6e 61 6d 65 0d 69 | 66 20 69 74 20 69 73 20 | fname.i|f it is |
|00003750| 22 65 72 72 22 20 74 68 | 65 6e 0d 61 6e 73 77 65 |"err" th|en.answe|
|00003760| 72 20 66 6e 61 6d 65 20 | 77 69 74 68 20 22 4f 4b |r fname |with "OK|
|00003770| 22 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |".put em|pty into|
|00003780| 20 66 6e 61 6d 65 0d 65 | 6c 73 65 0d 6f 70 65 6e | fname.e|lse.open|
|00003790| 20 66 69 6c 65 20 66 6e | 61 6d 65 0d 69 66 20 69 | file fn|ame.if i|
|000037a0| 74 20 69 73 20 22 6f 6c | 64 22 20 61 6e 64 20 70 |t is "ol|d" and p|
|000037b0| 72 6f 6d 70 74 32 20 69 | 73 20 6e 6f 74 20 65 6d |rompt2 i|s not em|
|000037c0| 70 74 79 20 74 68 65 6e | 0d 72 65 61 64 20 66 72 |pty then|.read fr|
|000037d0| 6f 6d 20 66 69 6c 65 20 | 66 6e 61 6d 65 20 66 6f |om file |fname fo|
|000037e0| 72 20 31 30 32 34 0d 72 | 65 70 65 61 74 20 75 6e |r 1024.r|epeat un|
|000037f0| 74 69 6c 20 69 74 20 69 | 73 20 65 6d 70 74 79 0d |til it i|s empty.|
|00003800| 72 65 61 64 20 66 72 6f | 6d 20 66 69 6c 65 20 66 |read fro|m file f|
|00003810| 6e 61 6d 65 20 66 6f 72 | 20 31 30 32 34 0d 65 6e |name for| 1024.en|
|00003820| 64 20 72 65 70 65 61 74 | 0d 65 6e 64 20 69 66 0d |d repeat|.end if.|
|00003830| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 72 65 |end if.e|nd if.re|
|00003840| 74 75 72 6e 20 66 6e 61 | 6d 65 0d 65 6e 64 20 67 |turn fna|me.end g|
|00003850| 65 74 46 69 6c 65 4e 61 | 6d 65 0d 0d 00 2d 20 61 |etFileNa|me...- a|
|00003860| 20 62 6c 61 6e 6b 20 6c | 69 6e 65 0d 65 6e 64 20 | blank l|ine.end |
|00003870| 70 61 63 6b 48 65 61 64 | 65 72 0d 0d 6f 6e 20 75 |packHead|er..on u|
|00003880| 00 00 04 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00003890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038a0| 00 09 1a 63 00 03 f2 76 | 00 02 24 e3 00 03 5a 72 |...c...v|..$...Zr|
|000038b0| 00 06 2a 65 00 04 3f 56 | 00 06 8a 97 00 05 50 f1 |..*e..?V|......P.|
|000038c0| 00 01 e0 72 00 06 2e ab | 00 03 f7 80 00 01 e4 94 |...r....|........|
|000038d0| 00 09 17 c7 00 09 18 d8 | 00 00 00 00 00 05 53 43 |........|......SC|
|000038e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038f0| 00 00 00 00 00 03 5e c6 | 00 05 b0 8a 00 00 00 00 |......^.|........|
|00003900| 00 03 ef eb 00 00 00 00 | 00 09 09 2f 00 00 00 00 |........|.../....|
|00003910| 00 00 00 00 00 07 91 4b | 00 00 00 00 00 00 00 00 |.......K|........|
|00003920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003930| 00 00 00 00 00 08 71 b4 | 00 00 00 00 00 00 00 00 |......q.|........|
|00003940| 00 08 b2 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...>....|........|
|00003950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c80| 00 00 00 80 4c 49 53 54 | 00 00 10 72 00 00 00 00 |....LIST|...r....|
|00003c90| 00 00 00 01 00 00 08 00 | 00 00 00 0a 00 18 00 02 |........|........|
|00003ca0| 00 05 00 03 80 00 02 7c | 00 00 00 0a 00 00 00 00 |.......||........|
|00003cb0| 00 00 13 94 00 0a 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d00| 00 00 08 00 50 41 47 45 | 00 00 13 94 00 00 00 00 |....PAGE|........|
|00003d10| 00 00 10 72 29 56 28 b8 | 00 00 09 76 60 00 00 00 |...r)V(.|...v`...|
|00003d20| 00 00 00 00 80 02 20 00 | 01 10 00 00 10 00 10 03 |...... .|........|
|00003d30| 00 00 0d 56 a0 56 35 ff | 87 ff 77 e5 f9 f3 9d f2 |...V.V5.|..w.....|
|00003d40| ef 53 d9 6b dc f7 bf ef | 00 00 17 43 a0 40 01 04 |.S.k....|...C.@..|
|00003d50| 08 20 40 01 00 90 00 80 | 04 08 00 10 01 10 00 00 |. @.....|........|
|00003d60| 00 00 1e 8a e0 16 35 41 | 40 0c 10 00 61 50 11 01 |......5A|@...aP..|
|00003d70| 10 41 00 40 44 22 78 40 | 00 00 11 ab a0 04 14 00 |.A.@D"x@|........|
|00003d80| 00 a4 01 00 41 50 81 40 | 80 42 10 44 41 3e 28 40 |....AP.@|.B.DA>(@|
|00003d90| 00 00 0e 97 a0 44 00 02 | 40 14 40 00 44 f0 00 20 |.....D..|@.@.D.. |
|00003da0| 46 19 00 40 40 22 34 44 | 00 00 25 4b a0 6c 26 86 |F..@@"4D|..%K.l&.|
|00003db0| 05 4c 60 04 4d b0 02 68 | 4e 69 08 32 42 02 10 64 |.L`.M..h|Ni.2B..d|
|00003dc0| 00 00 2d b4 a0 60 00 a1 | 61 bd 11 13 7c d5 14 09 |..-..`..|a...|...|
|00003dd0| 06 2c 22 ac c4 ed 12 40 | 00 00 30 3e a0 57 55 fb |.,"....@|..0>.WU.|
|00003de0| 7b fe ef 93 ff f3 7f 6e | df ff f6 73 7f ff 7c ff |{......n|...s..|.|
|00003df0| 00 00 22 2f a0 03 80 01 | 35 01 22 08 00 a4 18 2c |.."/....|5."....,|
|00003e00| 84 2a 4a 00 00 1c e0 48 | 00 00 00 00 00 00 00 00 |.*J....H|........|
|00003e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004500| 00 00 26 c0 42 4b 47 44 | 00 00 0a e3 00 00 00 00 |..&.BKGD|........|
|00004510| 00 00 0b 72 40 00 00 00 | 00 00 00 03 00 00 1d c6 |...r@...|........|
|00004520| 00 00 1d c6 00 22 00 37 | 00 00 17 b2 00 00 00 00 |.....".7|........|
|00004530| 00 00 00 7a 00 02 02 03 | 00 6e 00 55 00 80 01 fd |...z....|.n.U....|
|00004540| 00 02 00 00 00 00 00 00 | 00 04 00 09 00 00 00 0e |........|........|
|00004550| 53 75 62 6a 65 63 74 00 | 00 6f 6e 20 65 6e 74 65 |Subject.|.on ente|
|00004560| 72 49 6e 46 69 65 6c 64 | 0d 74 61 62 6b 65 79 0d |rInField|.tabkey.|
|00004570| 65 6e 64 20 65 6e 74 65 | 72 49 6e 46 69 65 6c 64 |end ente|rInField|
|00004580| 0d 0d 6f 6e 20 72 65 74 | 75 72 6e 49 6e 46 69 65 |..on ret|urnInFie|
|00004590| 6c 64 0d 74 61 62 6b 65 | 79 0d 65 6e 64 20 72 65 |ld.tabke|y.end re|
|000045a0| 74 75 72 6e 49 6e 46 69 | 65 6c 64 00 01 ee 00 03 |turnInFi|eld.....|
|000045b0| 02 01 00 81 00 03 01 54 | 01 fd 00 07 00 00 00 00 |.......T|........|
|000045c0| 00 00 00 04 00 09 00 00 | 00 0c 43 6f 6e 74 65 6e |........|..Conten|
|000045d0| 74 00 00 6f 6e 20 6d 6f | 75 73 65 55 70 0d 70 75 |t..on mo|useUp.pu|
|000045e0| 74 20 72 65 63 74 20 6f | 66 20 6d 65 20 69 6e 74 |t rect o|f me int|
|000045f0| 6f 20 72 0d 70 75 74 20 | 28 74 72 75 6e 63 28 28 |o r.put |(trunc((|
|00004600| 28 73 63 72 6f 6c 6c 20 | 6f 66 20 6d 65 29 20 2b |(scroll |of me) +|
|00004610| 20 69 74 65 6d 20 32 20 | 6f 66 20 63 6c 69 63 6b | item 2 |of click|
|00004620| 4c 6f 63 28 29 20 2d 20 | 28 69 74 65 6d 20 32 20 |Loc() - |(item 2 |
|00004630| 6f 66 20 72 29 29 20 c2 | 0d 64 69 76 20 74 68 65 |of r)) .|.div the|
|00004640| 20 74 65 78 74 68 65 69 | 67 68 74 20 6f 66 20 6d | texthei|ght of m|
|00004650| 65 29 20 2b 20 6f 6e 65 | 29 20 69 6e 74 6f 20 74 |e) + one|) into t|
|00004660| 68 65 4c 69 6e 65 0d 70 | 75 74 20 6c 69 6e 65 20 |heLine.p|ut line |
|00004670| 74 68 65 4c 69 6e 65 20 | 6f 66 20 66 69 65 6c 64 |theLine |of field|
|00004680| 20 22 43 6f 6e 74 65 6e | 74 22 20 69 6e 74 6f 20 | "Conten|t" into |
|00004690| 74 6d 70 0d 67 65 74 20 | 6e 75 6d 62 65 72 20 6f |tmp.get |number o|
|000046a0| 66 20 77 6f 72 64 73 20 | 6f 66 20 74 6d 70 0d 70 |f words |of tmp.p|
|000046b0| 75 74 20 77 6f 72 64 20 | 31 20 74 6f 20 69 74 20 |ut word |1 to it |
|000046c0| 6f 66 20 74 6d 70 20 69 | 6e 74 6f 20 74 6d 70 0d |of tmp i|nto tmp.|
|000046d0| 61 73 6b 20 22 4c 6f 63 | 61 74 65 20 74 68 65 20 |ask "Loc|ate the |
|000046e0| 66 6f 6c 6c 6f 77 69 6e | 67 20 73 75 62 6a 65 63 |followin|g subjec|
|000046f0| 74 20 6c 69 6e 65 3f 22 | 20 77 69 74 68 20 74 6d |t line?"| with tm|
|00004700| 70 0d 69 66 20 69 74 20 | 69 73 20 65 6d 70 74 79 |p.if it |is empty|
|00004710| 20 74 68 65 6e 0d 61 6e | 73 77 65 72 20 22 52 65 | then.an|swer "Re|
|00004720| 73 70 6f 6e 64 20 74 6f | 20 6d 65 73 73 61 67 65 |spond to| message|
|00004730| 73 20 77 69 74 68 20 52 | 65 70 6c 79 20 6f 72 20 |s with R|eply or |
|00004740| 46 6f 72 77 61 72 64 22 | 20 77 69 74 68 20 22 4f |Forward"| with "O|
|00004750| 4b 22 0d 65 6c 73 65 0d | 66 69 6e 64 20 77 68 6f |K".else.|find who|
|00004760| 6c 65 20 22 53 75 62 6a | 65 63 74 3a 22 20 26 26 |le "Subj|ect:" &&|
|00004770| 20 69 74 20 69 6e 20 66 | 69 65 6c 64 20 22 43 6f | it in f|ield "Co|
|00004780| 6e 74 65 6e 74 22 0d 65 | 6e 64 20 69 66 0d 65 6e |ntent".e|nd if.en|
|00004790| 64 20 6d 6f 75 73 65 55 | 70 00 00 78 00 1c 02 03 |d mouseU|p..x....|
|000047a0| 00 5b 00 55 00 6d 01 fd | 00 02 00 00 00 00 00 00 |.[.U.m..|........|
|000047b0| 00 04 00 09 00 00 00 0e | 44 61 74 65 00 00 6f 6e |........|Date..on|
|000047c0| 20 65 6e 74 65 72 49 6e | 46 69 65 6c 64 0d 74 61 | enterIn|Field.ta|
|000047d0| 62 4b 65 79 0d 65 6e 64 | 20 65 6e 74 65 72 49 6e |bKey.end| enterIn|
|000047e0| 46 69 65 6c 64 0d 0d 6f | 6e 20 72 65 74 75 72 6e |Field..o|n return|
|000047f0| 49 6e 46 69 65 6c 64 0d | 74 61 62 4b 65 79 0d 65 |InField.|tabKey.e|
|00004800| 6e 64 20 72 65 74 75 72 | 6e 49 6e 46 69 65 6c 64 |nd retur|nInField|
|00004810| 0d 00 00 42 00 04 01 00 | 00 48 00 03 00 5a 00 52 |...B....|.H...Z.R|
|00004820| 80 04 00 00 00 00 00 01 | 00 00 00 0c 00 00 00 10 |........|........|
|00004830| 46 72 6f 6d 3a 00 00 6f | 6e 20 6d 6f 75 73 65 44 |From:..o|n mouseD|
|00004840| 6f 77 6e 0d 65 6e 64 20 | 6d 6f 75 73 65 44 6f 77 |own.end |mouseDow|
|00004850| 6e 0d 00 00 00 62 00 05 | 01 00 00 6e 00 03 00 80 |n....b..|...n....|
|00004860| 00 52 80 04 00 00 00 00 | 00 01 00 00 00 0c 00 00 |.R......|........|
|00004870| 00 10 53 75 62 6a 65 63 | 74 3a 00 00 6f 6e 20 6d |..Subjec|t:..on m|
|00004880| 6f 75 73 65 55 70 0d 63 | 6c 69 63 6b 20 61 74 20 |ouseUp.c|lick at |
|00004890| 74 68 65 20 6c 6f 63 20 | 6f 66 20 66 69 65 6c 64 |the loc |of field|
|000048a0| 20 53 75 62 6a 65 63 74 | 0d 65 6e 64 20 6d 6f 75 | Subject|.end mou|
|000048b0| 73 65 55 70 0d 00 00 54 | 00 08 01 00 00 17 01 e7 |seUp...T|........|
|000048c0| 00 2d 01 fe 20 04 00 00 | 00 28 00 01 00 00 00 0c |.-.. ...|.(......|
|000048d0| 00 00 00 10 50 72 65 76 | 00 00 6f 6e 20 6d 6f 75 |....Prev|..on mou|
|000048e0| 73 65 55 70 0d 73 65 6e | 64 20 50 72 65 76 20 74 |seUp.sen|d Prev t|
|000048f0| 6f 20 74 68 69 73 20 63 | 61 72 64 0d 65 6e 64 20 |o this c|ard.end |
|00004900| 6d 6f 75 73 65 55 70 0d | 00 00 01 7a 00 01 02 03 |mouseUp.|...z....|
|00004910| 00 48 00 55 00 5a 01 fd | 00 02 00 00 00 00 00 00 |.H.U.Z..|........|
|00004920| 00 04 00 09 00 00 00 0e | 46 72 6f 6d 00 00 6f 6e |........|From..on|
|00004930| 20 65 6e 74 65 72 49 6e | 46 69 65 6c 64 0d 74 61 | enterIn|Field.ta|
|00004940| 62 4b 65 79 0d 65 6e 64 | 20 65 6e 74 65 72 49 6e |bKey.end| enterIn|
|00004950| 46 69 65 6c 64 0d 0d 6f | 6e 20 72 65 74 75 72 6e |Field..o|n return|
|00004960| 49 6e 46 69 65 6c 64 0d | 74 61 62 4b 65 79 0d 65 |InField.|tabKey.e|
|00004970| 6e 64 20 72 65 74 75 72 | 6e 49 6e 46 69 65 6c 64 |nd retur|nInField|
|00004980| 0d 0d 6f 6e 20 6f 70 65 | 6e 46 69 65 6c 64 0d 67 |..on ope|nField.g|
|00004990| 6c 6f 62 61 6c 20 73 61 | 76 65 72 0d 69 66 20 74 |lobal sa|ver.if t|
|000049a0| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|000049b0| 20 74 68 69 73 20 63 61 | 72 64 20 69 73 20 22 53 | this ca|rd is "S|
|000049c0| 65 6e 64 4d 61 69 6c 22 | 20 74 68 65 6e 0d 70 75 |endMail"| then.pu|
|000049d0| 74 20 76 61 6c 75 65 28 | 74 68 65 20 74 61 72 67 |t value(|the targ|
|000049e0| 65 74 29 20 69 6e 74 6f | 20 73 61 76 65 72 0d 65 |et) into| saver.e|
|000049f0| 6e 64 20 69 66 0d 65 6e | 64 20 6f 70 65 6e 46 69 |nd if.en|d openFi|
|00004a00| 65 6c 64 0d 0d 6f 6e 20 | 63 6c 6f 73 65 46 69 65 |eld..on |closeFie|
|00004a10| 6c 64 0d 67 6c 6f 62 61 | 6c 20 73 61 76 65 72 0d |ld.globa|l saver.|
|00004a20| 69 66 20 74 68 65 20 73 | 68 6f 72 74 20 6e 61 6d |if the s|hort nam|
|00004a30| 65 20 6f 66 20 74 68 69 | 73 20 63 61 72 64 20 69 |e of thi|s card i|
|00004a40| 73 20 22 53 65 6e 64 4d | 61 69 6c 22 20 74 68 65 |s "SendM|ail" the|
|00004a50| 6e 0d 70 75 74 20 73 61 | 76 65 72 20 69 6e 74 6f |n.put sa|ver into|
|00004a60| 20 74 68 65 20 74 61 72 | 67 65 74 0d 65 6e 64 20 | the tar|get.end |
|00004a70| 69 66 0d 65 6e 64 20 63 | 6c 6f 73 65 46 69 65 6c |if.end c|loseFiel|
|00004a80| 64 0d 0d 00 00 54 00 09 | 01 00 00 30 01 e7 00 46 |d....T..|...0...F|
|00004a90| 01 fe 20 04 00 00 00 29 | 00 01 00 00 00 0c 00 00 |.. ....)|........|
|00004aa0| 00 10 4e 65 78 74 00 00 | 6f 6e 20 6d 6f 75 73 65 |..Next..|on mouse|
|00004ab0| 55 70 0d 73 65 6e 64 20 | 4e 65 78 74 20 74 6f 20 |Up.send |Next to |
|00004ac0| 74 68 69 73 20 63 61 72 | 64 0d 65 6e 64 20 6d 6f |this car|d.end mo|
|00004ad0| 75 73 65 55 70 0d 00 00 | 00 72 00 0b 01 00 00 00 |useUp...|.r......|
|00004ae0| 01 e8 00 16 01 fe 20 00 | 00 00 61 aa 00 01 00 00 |...... .|..a.....|
|00004af0| 00 0c 00 00 00 10 48 65 | 6c 70 00 00 6f 6e 20 6d |......He|lp..on m|
|00004b00| 6f 75 73 65 55 70 0d 61 | 6e 73 77 65 72 20 22 48 |ouseUp.a|nswer "H|
|00004b10| 65 6c 70 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |elp info|rmation |
|00004b20| 6e 6f 74 20 79 65 74 20 | 69 6e 63 6c 75 64 65 64 |not yet |included|
|00004b30| 22 20 77 69 74 68 20 22 | 4f 4b 22 0d 65 6e 64 20 |" with "|OK".end |
|00004b40| 6d 6f 75 73 65 55 70 0d | 00 00 03 9e 00 0c 01 00 |mouseUp.|........|
|00004b50| 00 15 00 a6 00 46 00 cd | a0 04 00 00 66 af 00 01 |.....F..|....f...|
|00004b60| 00 00 00 0c 00 00 00 10 | 52 65 70 6c 79 00 00 6f |........|Reply..o|
|00004b70| 6e 20 6d 6f 75 73 65 55 | 70 0d 67 6c 6f 62 61 6c |n mouseU|p.global|
|00004b80| 20 72 65 70 6c 79 49 6e | 63 6c 75 64 65 0d 6c 6f | replyIn|clude.lo|
|00004b90| 63 6b 20 73 63 72 65 65 | 6e 0d 0d 67 65 74 20 66 |ck scree|n..get f|
|00004ba0| 69 65 6c 64 20 22 53 75 | 62 6a 65 63 74 22 0d 69 |ield "Su|bject".i|
|00004bb0| 66 20 77 6f 72 64 20 31 | 20 6f 66 20 69 74 20 69 |f word 1| of it i|
|00004bc0| 73 20 6e 6f 74 20 22 52 | 65 3a 22 20 74 68 65 6e |s not "R|e:" then|
|00004bd0| 20 67 65 74 20 22 52 65 | 3a 22 20 26 26 20 69 74 | get "Re|:" && it|
|00004be0| 0d 70 75 74 20 69 74 20 | 26 20 72 65 74 75 72 6e |.put it |& return|
|00004bf0| 20 69 6e 74 6f 20 6e 65 | 77 48 65 61 64 0d 67 65 | into ne|wHead.ge|
|00004c00| 74 20 65 78 74 72 61 63 | 74 48 65 61 64 28 66 69 |t extrac|tHead(fi|
|00004c10| 65 6c 64 20 22 48 65 61 | 64 65 72 22 2c 20 22 52 |eld "Hea|der", "R|
|00004c20| 65 70 6c 79 2d 54 6f 3a | 22 2c 20 22 4e 65 77 73 |eply-To:|", "News|
|00004c30| 67 72 6f 75 70 73 3a 22 | 2c 20 c2 0d 22 4d 65 73 |groups:"|, .."Mes|
|00004c40| 73 61 67 65 2d 49 44 3a | 22 29 0d 69 66 20 6c 69 |sage-ID:|").if li|
|00004c50| 6e 65 20 32 20 6f 66 20 | 69 74 20 69 73 20 6e 6f |ne 2 of |it is no|
|00004c60| 74 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 70 75 74 |t empty |then.put|
|00004c70| 20 70 72 65 66 65 72 72 | 65 64 28 6c 69 6e 65 20 | preferr|ed(line |
|00004c80| 32 20 6f 66 20 69 74 29 | 20 26 20 72 65 74 75 72 |2 of it)| & retur|
|00004c90| 6e 20 61 66 74 65 72 20 | 6e 65 77 48 65 61 64 0d |n after |newHead.|
|00004ca0| 65 6c 73 65 0d 70 75 74 | 20 6c 69 6e 65 20 31 20 |else.put| line 1 |
|00004cb0| 6f 66 20 66 69 65 6c 64 | 20 22 46 72 6f 6d 22 20 |of field| "From" |
|00004cc0| 26 20 72 65 74 75 72 6e | 20 61 66 74 65 72 20 6e |& return| after n|
|00004cd0| 65 77 48 65 61 64 0d 65 | 6e 64 20 69 66 0d 0d 70 |ewHead.e|nd if..p|
|00004ce0| 75 74 20 65 6d 70 74 79 | 20 69 6e 74 6f 20 6e 65 |ut empty| into ne|
|00004cf0| 77 4d 65 73 67 0d 69 66 | 20 72 65 70 6c 79 49 6e |wMesg.if| replyIn|
|00004d00| 63 6c 75 64 65 20 74 68 | 65 6e 0d 69 66 20 6c 69 |clude th|en.if li|
|00004d10| 6e 65 20 33 20 6f 66 20 | 69 74 20 69 73 20 6e 6f |ne 3 of |it is no|
|00004d20| 74 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 70 75 74 |t empty |then.put|
|00004d30| 20 22 49 6e 20 61 72 74 | 69 63 6c 65 22 20 26 26 | "In art|icle" &&|
|00004d40| 20 6c 69 6e 65 20 34 20 | 6f 66 20 69 74 20 26 20 | line 4 |of it & |
|00004d50| 22 2c 22 20 26 26 20 c2 | 0d 6c 69 6e 65 20 32 20 |"," && .|.line 2 |
|00004d60| 6f 66 20 6e 65 77 48 65 | 61 64 20 26 26 20 22 77 |of newHe|ad && "w|
|00004d70| 72 69 74 65 73 2e 2e 2e | 22 20 26 20 72 65 74 75 |rites...|" & retu|
|00004d80| 72 6e 20 61 66 74 65 72 | 20 6e 65 77 4d 65 73 67 |rn after| newMesg|
|00004d90| 0d 65 6e 64 20 69 66 0d | 70 75 74 20 66 6f 72 6d |.end if.|put form|
|00004da0| 61 74 28 22 3e 20 25 31 | 30 30 3f 22 2c 20 66 69 |at("> %1|00?", fi|
|00004db0| 65 6c 64 20 22 43 6f 6e | 74 65 6e 74 22 29 20 61 |eld "Con|tent") a|
|00004dc0| 66 74 65 72 20 6e 65 77 | 4d 65 73 67 0d 65 6e 64 |fter new|Mesg.end|
|00004dd0| 20 69 66 0d 0d 67 6f 20 | 63 61 72 64 20 22 53 65 | if..go |card "Se|
|00004de0| 6e 64 4d 61 69 6c 22 0d | 70 75 74 20 6c 69 6e 65 |ndMail".|put line|
|00004df0| 20 31 20 6f 66 20 6e 65 | 77 48 65 61 64 20 69 6e | 1 of ne|wHead in|
|00004e00| 74 6f 20 66 69 65 6c 64 | 20 22 53 75 62 6a 65 63 |to field| "Subjec|
|00004e10| 74 22 0d 70 75 74 20 77 | 6f 72 64 20 31 20 6f 66 |t".put w|ord 1 of|
|00004e20| 20 6c 69 6e 65 20 32 20 | 6f 66 20 6e 65 77 48 65 | line 2 |of newHe|
|00004e30| 61 64 20 69 6e 74 6f 20 | 63 61 72 64 20 66 69 65 |ad into |card fie|
|00004e40| 6c 64 20 22 54 6f 22 0d | 70 75 74 20 65 6d 70 74 |ld "To".|put empt|
|00004e50| 79 20 69 6e 74 6f 20 63 | 61 72 64 20 66 69 65 6c |y into c|ard fiel|
|00004e60| 64 20 22 43 43 22 0d 70 | 75 74 20 6e 65 77 4d 65 |d "CC".p|ut newMe|
|00004e70| 73 67 20 69 6e 74 6f 20 | 66 69 65 6c 64 20 22 43 |sg into |field "C|
|00004e80| 6f 6e 74 65 6e 74 22 0d | 75 6e 6c 6f 63 6b 20 73 |ontent".|unlock s|
|00004e90| 63 72 65 65 6e 20 77 69 | 74 68 20 76 69 73 75 61 |creen wi|th visua|
|00004ea0| 6c 20 65 66 66 65 63 74 | 20 69 72 69 73 20 63 6c |l effect| iris cl|
|00004eb0| 6f 73 65 0d 73 65 6c 65 | 63 74 20 62 65 66 6f 72 |ose.sele|ct befor|
|00004ec0| 65 20 74 65 78 74 20 6f | 66 20 66 69 65 6c 64 20 |e text o|f field |
|00004ed0| 22 43 6f 6e 74 65 6e 74 | 22 0d 65 6e 64 20 6d 6f |"Content|".end mo|
|00004ee0| 75 73 65 55 70 0d 0d 00 | 00 9e 00 0d 01 00 00 15 |useUp...|........|
|00004ef0| 00 02 00 46 00 29 a0 04 | 00 00 7f d8 00 01 00 00 |...F.)..|........|
|00004f00| 00 0c 00 00 00 10 49 6e | 64 65 78 00 00 6f 6e 20 |......In|dex..on |
|00004f10| 6d 6f 75 73 65 55 70 0d | 70 75 73 68 20 63 61 72 |mouseUp.|push car|
|00004f20| 64 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 67 6f |d.lock s|creen.go|
|00004f30| 20 74 6f 20 63 61 72 64 | 20 22 4d 65 73 73 61 67 | to card| "Messag|
|00004f40| 65 49 6e 64 65 78 22 0d | 69 66 20 74 68 65 20 6f |eIndex".|if the o|
|00004f50| 70 74 69 6f 6e 4b 65 79 | 20 69 73 20 64 6f 77 6e |ptionKey| is down|
|00004f60| 20 74 68 65 6e 0d 62 75 | 69 6c 64 69 6e 64 65 78 | then.bu|ildindex|
|00004f70| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 6d 6f 75 73 |.end if.|end mous|
|00004f80| 65 55 70 0d 00 00 00 9c | 00 0e 01 00 00 00 01 a0 |eUp.....|........|
|00004f90| 00 17 01 bc 20 00 00 00 | 54 c4 00 01 00 00 00 0c |.... ...|T.......|
|00004fa0| 00 00 00 10 48 6f 6d 65 | 00 00 6f 6e 20 6d 6f 75 |....Home|..on mou|
|00004fb0| 73 65 55 70 0d 76 69 73 | 75 61 6c 20 65 66 66 65 |seUp.vis|ual effe|
|00004fc0| 63 74 20 69 72 69 73 20 | 63 6c 6f 73 65 0d 69 66 |ct iris |close.if|
|00004fd0| 20 74 68 65 20 6f 70 74 | 69 6f 6e 4b 65 79 20 69 | the opt|ionKey i|
|00004fe0| 73 20 64 6f 77 6e 20 74 | 68 65 6e 0d 67 6f 20 22 |s down t|hen.go "|
|00004ff0| 4d 65 73 73 61 67 65 20 | 41 72 63 68 69 76 65 22 |Message |Archive"|
|00005000| 0d 65 6c 73 65 0d 67 6f | 20 68 6f 6d 65 0d 65 6e |.else.go| home.en|
|00005010| 64 20 69 66 0d 65 6e 64 | 20 6d 6f 75 73 65 55 70 |d if.end| mouseUp|
|00005020| 0d 00 01 2e 00 10 01 00 | 00 15 01 4a 00 46 01 71 |........|...J.F.q|
|00005030| a0 04 00 00 03 ef 00 01 | 00 00 00 0c 00 00 00 10 |........|........|
|00005040| 50 72 69 6e 74 00 00 6f | 6e 20 6d 6f 75 73 65 55 |Print..o|n mouseU|
|00005050| 70 0d 67 6c 6f 62 61 6c | 20 75 73 65 72 49 44 2c |p.global| userID,|
|00005060| 20 70 65 72 73 6f 6e 61 | 6c 4e 61 6d 65 0d 70 61 | persona|lName.pa|
|00005070| 63 6b 48 65 61 64 65 72 | 20 66 61 6c 73 65 0d 70 |ckHeader| false.p|
|00005080| 75 74 20 70 65 72 73 6f | 6e 61 6c 4e 61 6d 65 20 |ut perso|nalName |
|00005090| 69 6e 74 6f 20 74 68 65 | 4e 61 6d 65 0d 69 66 20 |into the|Name.if |
|000050a0| 74 68 65 4e 61 6d 65 20 | 69 73 20 65 6d 70 74 79 |theName |is empty|
|000050b0| 20 74 68 65 6e 20 70 75 | 74 20 75 73 65 72 49 44 | then pu|t userID|
|000050c0| 20 69 6e 74 6f 20 74 68 | 65 4e 61 6d 65 0d 68 61 | into th|eName.ha|
|000050d0| 72 64 63 6f 70 79 20 66 | 6c 64 20 48 65 61 64 65 |rdcopy f|ld Heade|
|000050e0| 72 20 26 20 66 6c 64 20 | 43 6f 6e 74 65 6e 74 2c |r & fld |Content,|
|000050f0| 20 63 6f 75 72 69 65 72 | 2c 20 31 30 2c 20 70 6c | courier|, 10, pl|
|00005100| 61 69 6e 2c 20 c2 0d 66 | 69 65 6c 64 20 22 54 69 |ain, ..f|ield "Ti|
|00005110| 74 6c 65 22 20 26 26 20 | 22 66 6f 72 22 20 26 26 |tle" && |"for" &&|
|00005120| 20 74 68 65 4e 61 6d 65 | 20 26 20 22 3a 20 20 22 | theName| & ":  "|
|00005130| 20 26 20 66 6c 64 20 22 | 53 75 62 6a 65 63 74 22 | & fld "|Subject"|
|00005140| 0d 65 6e 64 20 6d 6f 75 | 73 65 55 70 0d 0d 00 00 |.end mou|seUp....|
|00005150| 00 4a 00 13 01 00 00 15 | 01 73 00 46 01 9a a0 04 |.J......|.s.F....|
|00005160| 00 00 30 15 00 01 00 00 | 00 0c 00 00 00 10 44 69 |..0.....|......Di|
|00005170| 73 63 61 72 64 00 00 6f | 6e 20 6d 6f 75 73 65 55 |scard..o|n mouseU|
|00005180| 70 0d 64 69 73 63 61 72 | 64 4d 65 0d 65 6e 64 20 |p.discar|dMe.end |
|00005190| 6d 6f 75 73 65 55 70 0d | 00 00 00 42 00 1b 01 00 |mouseUp.|...B....|
|000051a0| 00 5b 00 03 00 6d 00 52 | 80 04 00 00 00 00 00 01 |.[...m.R|........|
|000051b0| 00 00 00 0c 00 00 00 10 | 44 61 74 65 3a 00 00 6f |........|Date:..o|
|000051c0| 6e 20 6d 6f 75 73 65 44 | 6f 77 6e 0d 65 6e 64 20 |n mouseD|own.end |
|000051d0| 6d 6f 75 73 65 44 6f 77 | 6e 0d 00 00 00 52 00 14 |mouseDow|n....R..|
|000051e0| 02 81 00 48 00 55 01 54 | 01 fe 00 02 00 00 00 00 |...H.U.T|........|
|000051f0| 00 00 00 04 00 09 00 00 | 00 0c 48 65 61 64 65 72 |........|..Header|
|00005200| 00 00 6f 6e 20 6d 6f 75 | 73 65 55 70 0d 68 69 64 |..on mou|seUp.hid|
|00005210| 65 20 62 67 20 66 69 65 | 6c 64 20 48 65 61 64 65 |e bg fie|ld Heade|
|00005220| 72 0d 65 6e 64 20 6d 6f | 75 73 65 55 70 00 00 46 |r.end mo|useUp..F|
|00005230| 00 15 01 80 01 2d 01 96 | 01 49 01 dd a0 03 00 00 |.....-..|.I......|
|00005240| 00 00 00 01 00 00 00 0c | 00 00 00 10 4f 4b 00 00 |........|....OK..|
|00005250| 6f 6e 20 6d 6f 75 73 65 | 55 70 0d 68 69 64 65 48 |on mouse|Up.hideH|
|00005260| 65 61 64 65 72 0d 65 6e | 64 20 6d 6f 75 73 65 55 |eader.en|d mouseU|
|00005270| 70 0d 00 00 00 2a 00 18 | 01 80 00 c2 00 cf 00 d8 |p....*..|........|
|00005280| 01 33 e0 05 00 00 00 00 | 00 01 00 00 00 0c 00 00 |.3......|........|
|00005290| 00 10 62 61 63 6b 65 64 | 55 70 00 00 00 00 00 54 |..backed|Up.....T|
|000052a0| 00 1a 01 00 00 00 01 bd | 00 15 01 e4 80 04 00 00 |........|........|
|000052b0| 00 00 00 01 00 03 00 0a | 00 00 00 0d 51 75 69 74 |........|....Quit|
|000052c0| 00 00 6f 6e 20 6d 6f 75 | 73 65 55 70 0d 64 6f 4d |..on mou|seUp.doM|
|000052d0| 65 6e 75 20 22 51 75 69 | 74 20 48 79 70 65 72 63 |enu "Qui|t Hyperc|
|000052e0| 61 72 64 22 0d 65 6e 64 | 20 6d 6f 75 73 65 55 70 |ard".end| mouseUp|
|000052f0| 0d 00 02 d8 00 1f 01 00 | 00 15 00 f8 00 46 01 1f |........|.....F..|
|00005300| 80 04 ff ff c1 8d 00 01 | 00 00 00 0c 00 00 00 10 |........|........|
|00005310| 53 61 76 65 00 00 6f 6e | 20 6d 6f 75 73 65 55 70 |Save..on| mouseUp|
|00005320| 0d 67 6c 6f 62 61 6c 20 | 73 61 76 65 46 69 6c 65 |.global |saveFile|
|00005330| 2c 20 6d 75 6c 74 69 4f | 70 6e 0d 2d 2d 20 69 66 |, multiO|pn.-- if|
|00005340| 20 6d 75 6c 74 69 6f 70 | 6e 20 69 73 20 74 72 75 | multiop|n is tru|
|00005350| 65 2c 20 74 68 69 73 20 | 69 73 20 70 65 72 66 6f |e, this |is perfo|
|00005360| 72 6d 65 64 20 61 73 20 | 61 20 73 75 62 73 65 74 |rmed as |a subset|
|00005370| 20 6f 66 20 61 6e 6f 74 | 68 65 72 0d 69 66 20 6e | of anot|her.if n|
|00005380| 6f 74 20 6d 75 6c 74 69 | 4f 70 6e 20 74 68 65 6e |ot multi|Opn then|
|00005390| 0d 70 61 63 6b 48 65 61 | 64 65 72 20 66 61 6c 73 |.packHea|der fals|
|000053a0| 65 0d 69 66 20 74 68 65 | 20 73 68 6f 72 74 20 6e |e.if the| short n|
|000053b0| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 63 61 72 64 |ame of t|his card|
|000053c0| 20 69 73 20 22 53 65 6e | 64 4d 61 69 6c 22 20 74 | is "Sen|dMail" t|
|000053d0| 68 65 6e 0d 70 75 74 20 | 77 6f 72 64 20 31 20 6f |hen.put |word 1 o|
|000053e0| 66 20 63 61 72 64 20 66 | 6c 64 20 22 54 6f 22 20 |f card f|ld "To" |
|000053f0| 69 6e 74 6f 20 73 61 76 | 65 46 69 6c 65 0d 65 6c |into sav|eFile.el|
|00005400| 73 65 0d 70 75 74 20 77 | 6f 72 64 20 31 20 6f 66 |se.put w|ord 1 of|
|00005410| 20 66 6c 64 20 22 46 72 | 6f 6d 22 20 69 6e 74 6f | fld "Fr|om" into|
|00005420| 20 73 61 76 65 46 69 6c | 65 0d 65 6e 64 20 69 66 | saveFil|e.end if|
|00005430| 0d 70 75 74 20 67 65 74 | 46 69 6c 65 4e 61 6d 65 |.put get|FileName|
|00005440| 28 73 61 76 65 46 69 6c | 65 2c 22 41 70 70 65 6e |(saveFil|e,"Appen|
|00005450| 64 20 74 6f 20 77 68 69 | 63 68 20 66 69 6c 65 3f |d to whi|ch file?|
|00005460| 22 2c 22 53 61 76 65 20 | 74 6f 20 66 69 6c 65 3a |","Save |to file:|
|00005470| 22 29 20 c2 0d 69 6e 74 | 6f 20 73 61 76 65 46 69 |") ..int|o saveFi|
|00005480| 6c 65 0d 69 66 20 73 61 | 76 65 46 69 6c 65 20 69 |le.if sa|veFile i|
|00005490| 73 20 65 6d 70 74 79 20 | 74 68 65 6e 20 65 78 69 |s empty |then exi|
|000054a0| 74 20 6d 6f 75 73 65 55 | 70 0d 65 6e 64 20 69 66 |t mouseU|p.end if|
|000054b0| 0d 0d 2d 2d 20 4e 6f 77 | 20 77 72 69 74 65 20 74 |..-- Now| write t|
|000054c0| 68 65 20 6e 65 78 74 20 | 6d 65 73 73 61 67 65 0d |he next |message.|
|000054d0| 73 61 76 65 4d 65 73 67 | 20 73 61 76 65 46 69 6c |saveMesg| saveFil|
|000054e0| 65 2c 20 66 6c 64 20 22 | 48 65 61 64 65 72 22 20 |e, fld "|Header" |
|000054f0| 26 20 72 65 74 75 72 6e | 20 26 20 66 6c 64 20 22 |& return| & fld "|
|00005500| 43 6f 6e 74 65 6e 74 22 | 20 26 20 72 65 74 75 72 |Content"| & retur|
|00005510| 6e 0d 69 66 20 6e 6f 74 | 20 6d 75 6c 74 69 4f 70 |n.if not| multiOp|
|00005520| 6e 20 74 68 65 6e 20 63 | 6c 6f 73 65 20 66 69 6c |n then c|lose fil|
|00005530| 65 20 73 61 76 65 46 69 | 6c 65 0d 69 66 20 74 68 |e saveFi|le.if th|
|00005540| 65 20 73 68 6f 72 74 20 | 6e 61 6d 65 20 6f 66 20 |e short |name of |
|00005550| 74 68 69 73 20 63 61 72 | 64 20 69 73 20 6e 6f 74 |this car|d is not|
|00005560| 20 22 53 65 6e 64 4d 61 | 69 6c 22 20 61 6e 64 20 | "SendMa|il" and |
|00005570| c2 0d 74 68 65 20 73 68 | 6f 72 74 20 6e 61 6d 65 |..the sh|ort name|
|00005580| 20 6f 66 20 74 68 69 73 | 20 63 61 72 64 20 69 73 | of this| card is|
|00005590| 20 6e 6f 74 20 22 52 65 | 61 64 4e 65 77 73 22 20 | not "Re|adNews" |
|000055a0| 74 68 65 6e 0d 63 68 61 | 6e 67 65 53 74 61 74 75 |then.cha|ngeStatu|
|000055b0| 73 20 22 53 22 0d 65 6e | 64 20 69 66 0d 65 6e 64 |s "S".en|d if.end|
|000055c0| 20 6d 6f 75 73 65 55 70 | 0d 00 00 28 00 22 02 81 | mouseUp|...(."..|
|000055d0| 00 45 00 03 01 52 01 fd | 00 07 00 00 00 00 00 00 |.E...R..|........|
|000055e0| 00 04 00 09 00 00 00 0c | 6c 69 73 74 69 6e 67 00 |........|listing.|
|000055f0| 00 00 00 5a 00 24 01 00 | 00 17 01 bd 00 46 01 e4 |...Z.$..|.....F..|
|00005600| 80 04 00 00 27 60 00 01 | 00 03 00 0a 00 00 00 0d |....'`..|........|
|00005610| 43 6f 6e 66 69 67 00 00 | 6f 6e 20 6d 6f 75 73 65 |Config..|on mouse|
|00005620| 55 70 0d 70 75 73 68 20 | 63 61 72 64 0d 67 6f 20 |Up.push |card.go |
|00005630| 63 61 72 64 20 22 43 6f | 6e 66 69 67 22 0d 65 6e |card "Co|nfig".en|
|00005640| 64 20 6d 6f 75 73 65 55 | 70 0d 00 00 00 ca 00 25 |d mouseU|p......%|
|00005650| 01 00 00 15 00 2b 00 46 | 00 52 a0 04 00 00 3b 1d |.....+.F|.R....;.|
|00005660| 00 01 00 00 00 0c 00 00 | 00 10 49 6e 64 65 78 00 |........|..Index.|
|00005670| 00 6f 6e 20 6d 6f 75 73 | 65 55 70 0d 70 75 73 68 |.on mous|eUp.push|
|00005680| 20 63 61 72 64 0d 6c 6f | 63 6b 20 73 63 72 65 65 | card.lo|ck scree|
|00005690| 6e 0d 69 66 20 66 69 65 | 6c 64 20 22 49 6e 64 65 |n.if fie|ld "Inde|
|000056a0| 78 22 20 6f 66 20 63 61 | 72 64 20 53 75 62 6a 65 |x" of ca|rd Subje|
|000056b0| 63 74 49 6e 64 65 78 20 | 69 73 20 6e 6f 74 20 65 |ctIndex |is not e|
|000056c0| 6d 70 74 79 20 74 68 65 | 6e 0d 67 6f 20 74 6f 20 |mpty the|n.go to |
|000056d0| 63 61 72 64 20 22 53 75 | 62 6a 65 63 74 49 6e 64 |card "Su|bjectInd|
|000056e0| 65 78 22 0d 65 6c 73 65 | 0d 67 6f 20 74 6f 20 63 |ex".else|.go to c|
|000056f0| 61 72 64 20 22 47 72 6f | 75 70 49 6e 64 65 78 22 |ard "Gro|upIndex"|
|00005700| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 6d 6f 75 73 |.end if.|end mous|
|00005710| 65 55 70 0d 00 00 00 5a | 00 28 01 00 00 15 00 7d |eUp....Z|.(.....}|
|00005720| 00 46 00 a4 a0 04 00 00 | 66 af 00 01 00 00 00 0c |.F......|f.......|
|00005730| 00 00 00 10 4e 65 77 00 | 00 6f 6e 20 6d 6f 75 73 |....New.|.on mous|
|00005740| 65 55 70 0d 70 75 73 68 | 20 63 61 72 64 0d 67 6f |eUp.push| card.go|
|00005750| 20 63 61 72 64 20 22 53 | 65 6e 64 4d 61 69 6c 22 | card "S|endMail"|
|00005760| 0d 65 6e 64 20 6d 6f 75 | 73 65 55 70 0d 0d 00 00 |.end mou|seUp....|
|00005770| 01 98 00 2a 01 00 00 15 | 00 cf 00 46 00 f6 a0 04 |...*....|...F....|
|00005780| 00 00 66 af 00 01 00 00 | 00 0c 00 00 00 10 46 6f |..f.....|......Fo|
|00005790| 72 77 27 64 00 00 6f 6e | 20 6d 6f 75 73 65 55 70 |rw'd..on| mouseUp|
|000057a0| 0d 73 65 74 20 6c 6f 63 | 6b 73 63 72 65 65 6e 20 |.set loc|kscreen |
|000057b0| 74 6f 20 74 72 75 65 0d | 70 75 74 20 22 2d 2d 2d |to true.|put "---|
|000057c0| 22 20 26 20 72 65 74 75 | 72 6e 20 26 20 22 3e 22 |" & retu|rn & ">"|
|000057d0| 20 26 20 66 69 65 6c 64 | 20 22 48 65 61 64 65 72 | & field| "Header|
|000057e0| 22 20 69 6e 74 6f 20 72 | 0d 70 75 74 20 66 69 65 |" into r|.put fie|
|000057f0| 6c 64 20 22 43 6f 6e 74 | 65 6e 74 22 20 61 66 74 |ld "Cont|ent" aft|
|00005800| 65 72 20 72 0d 70 75 74 | 20 66 69 65 6c 64 20 22 |er r.put| field "|
|00005810| 53 75 62 6a 65 63 74 22 | 20 26 20 22 20 28 66 6f |Subject"| & " (fo|
|00005820| 72 77 61 72 64 65 64 29 | 22 20 69 6e 74 6f 20 73 |rwarded)|" into s|
|00005830| 0d 73 65 74 20 63 75 72 | 73 6f 72 20 74 6f 20 62 |.set cur|sor to b|
|00005840| 75 73 79 0d 67 6f 20 63 | 61 72 64 20 22 53 65 6e |usy.go c|ard "Sen|
|00005850| 64 4d 61 69 6c 22 0d 70 | 75 74 20 73 20 69 6e 74 |dMail".p|ut s int|
|00005860| 6f 20 66 69 65 6c 64 20 | 22 53 75 62 6a 65 63 74 |o field |"Subject|
|00005870| 22 0d 70 75 74 20 72 20 | 69 6e 74 6f 20 66 69 65 |".put r |into fie|
|00005880| 6c 64 20 22 43 6f 6e 74 | 65 6e 74 22 0d 70 75 74 |ld "Cont|ent".put|
|00005890| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 63 61 72 64 | empty i|nto card|
|000058a0| 20 66 6c 64 20 22 43 43 | 22 0d 75 6e 6c 6f 63 6b | fld "CC|".unlock|
|000058b0| 20 73 63 72 65 65 6e 20 | 77 69 74 68 20 76 69 73 | screen |with vis|
|000058c0| 75 61 6c 20 65 66 66 65 | 63 74 20 69 72 69 73 20 |ual effe|ct iris |
|000058d0| 63 6c 6f 73 65 0d 63 6c | 69 63 6b 20 61 74 20 74 |close.cl|ick at t|
|000058e0| 68 65 20 6c 6f 63 20 6f | 66 20 63 61 72 64 20 66 |he loc o|f card f|
|000058f0| 69 65 6c 64 20 22 54 6f | 22 0d 65 6e 64 20 6d 6f |ield "To|".end mo|
|00005900| 75 73 65 55 70 0d 0d 00 | 00 c6 00 2c 01 00 00 15 |useUp...|...,....|
|00005910| 01 21 00 46 01 48 80 04 | 00 00 3d 6b 00 01 00 00 |.!.F.H..|..=k....|
|00005920| 00 0c 00 00 00 10 52 65 | 63 61 6c 6c 00 00 6f 6e |......Re|call..on|
|00005930| 20 6d 6f 75 73 65 55 70 | 0d 70 75 74 20 67 65 74 | mouseUp|.put get|
|00005940| 46 69 6c 65 4e 61 6d 65 | 28 22 22 2c 22 52 65 63 |FileName|("","Rec|
|00005950| 61 6c 6c 20 66 72 6f 6d | 20 77 68 69 63 68 20 66 |all from| which f|
|00005960| 69 6c 65 3f 22 2c 22 22 | 29 20 69 6e 74 6f 20 66 |ile?",""|) into f|
|00005970| 6e 61 6d 65 0d 69 66 20 | 66 6e 61 6d 65 20 69 73 |name.if |fname is|
|00005980| 20 6e 6f 74 20 65 6d 70 | 74 79 20 74 68 65 6e 0d | not emp|ty then.|
|00005990| 73 65 6e 64 20 22 72 65 | 63 61 6c 6c 66 69 6c 65 |send "re|callfile|
|000059a0| 20 66 6e 61 6d 65 22 20 | 74 6f 20 63 61 72 64 20 | fname" |to card |
|000059b0| 22 52 65 63 61 6c 6c 22 | 0d 65 6e 64 20 69 66 0d |"Recall"|.end if.|
|000059c0| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d 00 00 00 26 |end mous|eUp....&|
|000059d0| 00 2f 02 01 00 00 00 7d | 00 13 01 70 00 02 00 00 |./.....}|...p....|
|000059e0| 00 00 00 01 00 14 00 0e | 41 00 00 12 54 69 74 6c |........|A...Titl|
|000059f0| 65 00 00 00 00 6a 00 30 | 01 00 00 15 00 54 00 46 |e....j.0|.....T.F|
|00005a00| 00 7b a0 04 00 00 64 f3 | 00 01 00 00 00 0c 00 00 |.{....d.|........|
|00005a10| 00 10 46 65 74 63 68 00 | 00 6f 6e 20 6d 6f 75 73 |..Fetch.|.on mous|
|00005a20| 65 55 70 0d 70 75 73 68 | 20 63 61 72 64 0d 67 6f |eUp.push| card.go|
|00005a30| 20 63 61 72 64 20 22 4d | 65 73 73 61 67 65 49 6e | card "M|essageIn|
|00005a40| 64 65 78 22 0d 66 65 74 | 63 68 4d 61 69 6c 0d 65 |dex".fet|chMail.e|
|00005a50| 6e 64 20 6d 6f 75 73 65 | 55 70 0d 0d 00 00 00 b0 |nd mouse|Up......|
|00005a60| 00 31 01 00 00 49 01 eb | 00 59 01 fc 20 00 00 00 |.1...I..|.Y.. ...|
|00005a70| 0f 5d 00 01 00 00 00 0c | 00 00 00 10 5a 6f 6f 6d |.]......|....Zoom|
|00005a80| 46 72 6f 6d 00 00 6f 6e | 20 6d 6f 75 73 65 55 70 |From..on| mouseUp|
|00005a90| 0d 67 65 74 20 74 68 65 | 20 76 69 73 69 62 6c 65 |.get the| visible|
|00005aa0| 20 6f 66 20 62 6b 67 6e | 64 20 66 69 65 6c 64 20 | of bkgn|d field |
|00005ab0| 22 48 65 61 64 65 72 22 | 0d 69 66 20 69 74 20 74 |"Header"|.if it t|
|00005ac0| 68 65 6e 0d 68 69 64 65 | 20 62 6b 67 6e 64 20 66 |hen.hide| bkgnd f|
|00005ad0| 69 65 6c 64 20 48 65 61 | 64 65 72 0d 65 6c 73 65 |ield Hea|der.else|
|00005ae0| 0d 73 68 6f 77 20 62 6b | 67 6e 64 20 66 69 65 6c |.show bk|gnd fiel|
|00005af0| 64 20 48 65 61 64 65 72 | 0d 65 6e 64 20 69 66 0d |d Header|.end if.|
|00005b00| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d 00 00 00 5e |end mous|eUp....^|
|00005b10| 00 33 01 00 00 17 01 e7 | 00 2d 01 fe 20 04 00 00 |.3......|.-.. ...|
|00005b20| 00 28 00 01 00 00 00 0c | 00 00 00 10 50 72 65 76 |.(......|....Prev|
|00005b30| 4d 65 73 67 00 00 6f 6e | 20 6d 6f 75 73 65 55 70 |Mesg..on| mouseUp|
|00005b40| 0d 73 65 6e 64 20 22 50 | 72 65 76 4d 65 73 67 22 |.send "P|revMesg"|
|00005b50| 20 74 6f 20 74 68 69 73 | 20 63 61 72 64 0d 65 6e | to this| card.en|
|00005b60| 64 20 6d 6f 75 73 65 55 | 70 0d 00 00 00 5e 00 34 |d mouseU|p....^.4|
|00005b70| 01 00 00 17 01 e7 00 2d | 01 fe 20 04 00 00 00 28 |.......-|.. ....(|
|00005b80| 00 01 00 00 00 0c 00 00 | 00 10 50 72 65 76 4d 65 |........|..PrevMe|
|00005b90| 73 67 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 73 |sg..on m|ouseUp.s|
|00005ba0| 65 6e 64 20 22 50 72 65 | 76 4d 65 73 67 22 20 74 |end "Pre|vMesg" t|
|00005bb0| 6f 20 74 68 69 73 20 63 | 61 72 64 0d 65 6e 64 20 |o this c|ard.end |
|00005bc0| 6d 6f 75 73 65 55 70 0d | 00 00 00 5e 00 35 01 00 |mouseUp.|...^.5..|
|00005bd0| 00 30 01 e7 00 46 01 fe | 20 04 00 00 00 29 00 01 |.0...F..| ....)..|
|00005be0| 00 00 00 0c 00 00 00 10 | 4e 65 78 74 4d 65 73 67 |........|NextMesg|
|00005bf0| 00 00 6f 6e 20 6d 6f 75 | 73 65 55 70 0d 73 65 6e |..on mou|seUp.sen|
|00005c00| 64 20 22 4e 65 78 74 4d | 65 73 67 22 20 74 6f 20 |d "NextM|esg" to |
|00005c10| 74 68 69 73 20 63 61 72 | 64 0d 65 6e 64 20 6d 6f |this car|d.end mo|
|00005c20| 75 73 65 55 70 0d 00 00 | 00 5e 00 36 01 00 00 17 |useUp...|.^.6....|
|00005c30| 01 e7 00 2d 01 fe 20 04 | 00 00 00 28 00 01 00 00 |...-.. .|...(....|
|00005c40| 00 0c 00 00 00 10 50 72 | 65 76 4d 65 73 67 00 00 |......Pr|evMesg..|
|00005c50| 6f 6e 20 6d 6f 75 73 65 | 55 70 0d 73 65 6e 64 20 |on mouse|Up.send |
|00005c60| 22 50 72 65 76 4d 65 73 | 67 22 20 74 6f 20 74 68 |"PrevMes|g" to th|
|00005c70| 69 73 20 63 61 72 64 0d | 65 6e 64 20 6d 6f 75 73 |is card.|end mous|
|00005c80| 65 55 70 0d 00 00 00 5e | 00 37 01 00 00 30 01 e7 |eUp....^|.7...0..|
|00005c90| 00 46 01 fe 20 04 00 00 | 00 29 00 01 00 00 00 0c |.F.. ...|.)......|
|00005ca0| 00 00 00 10 4e 65 78 74 | 4d 65 73 67 00 00 6f 6e |....Next|Mesg..on|
|00005cb0| 20 6d 6f 75 73 65 55 70 | 0d 73 65 6e 64 20 22 4e | mouseUp|.send "N|
|00005cc0| 65 78 74 4d 65 73 67 22 | 20 74 6f 20 74 68 69 73 |extMesg"| to this|
|00005cd0| 20 63 61 72 64 0d 65 6e | 64 20 6d 6f 75 73 65 55 | card.en|d mouseU|
|00005ce0| 70 0d 00 00 4d 65 73 73 | 61 67 65 73 00 6f 6e 20 |p...Mess|ages.on |
|00005cf0| 72 65 73 65 74 0d 67 6c | 6f 62 61 6c 20 6f 6c 64 |reset.gl|obal old|
|00005d00| 4c 65 76 65 6c 2c 20 6d | 75 6c 74 69 4f 70 6e 0d |Level, m|ultiOpn.|
|00005d10| 69 66 20 6f 6c 64 4c 65 | 76 65 6c 20 69 73 20 65 |if oldLe|vel is e|
|00005d20| 6d 70 74 79 20 74 68 65 | 6e 20 73 65 6e 64 20 63 |mpty the|n send c|
|00005d30| 6c 65 61 72 46 69 65 6c | 64 73 20 74 6f 20 63 61 |learFiel|ds to ca|
|00005d40| 72 64 20 22 53 65 6e 64 | 4d 61 69 6c 22 0d 70 75 |rd "Send|Mail".pu|
|00005d50| 74 20 66 61 6c 73 65 20 | 69 6e 74 6f 20 6d 75 6c |t false |into mul|
|00005d60| 74 69 4f 70 6e 0d 65 6e | 64 20 72 65 73 65 74 0d |tiOpn.en|d reset.|
|00005d70| 0d 6f 6e 20 6f 70 65 6e | 43 61 72 64 0d 67 65 74 |.on open|Card.get|
|00005d80| 20 73 68 6f 72 74 20 6e | 61 6d 65 20 6f 66 20 74 | short n|ame of t|
|00005d90| 68 69 73 20 63 61 72 64 | 20 69 73 20 6e 6f 74 20 |his card| is not |
|00005da0| 22 53 65 6e 64 4d 61 69 | 6c 22 0d 73 65 74 20 6c |"SendMai|l".set l|
|00005db0| 6f 63 6b 54 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |ockText |of field|
|00005dc0| 20 22 43 6f 6e 74 65 6e | 74 22 20 74 6f 20 69 74 | "Conten|t" to it|
|00005dd0| 0d 73 65 74 20 6c 6f 63 | 6b 54 65 78 74 20 6f 66 |.set loc|kText of|
|00005de0| 20 66 69 65 6c 64 20 22 | 53 75 62 6a 65 63 74 22 | field "|Subject"|
|00005df0| 20 74 6f 20 69 74 0d 68 | 69 64 65 20 62 67 20 66 | to it.h|ide bg f|
|00005e00| 69 65 6c 64 20 22 48 65 | 61 64 65 72 22 0d 65 6e |ield "He|ader".en|
|00005e10| 64 20 6f 70 65 6e 43 61 | 72 64 0d 0d 6f 6e 20 63 |d openCa|rd..on c|
|00005e20| 6c 6f 73 65 43 61 72 64 | 0d 69 66 20 66 69 65 6c |loseCard|.if fiel|
|00005e30| 64 20 22 54 69 74 6c 65 | 22 20 69 73 20 22 4e 65 |d "Title|" is "Ne|
|00005e40| 77 20 4d 65 73 73 61 67 | 65 22 20 74 68 65 6e 0d |w Messag|e" then.|
|00005e50| 63 68 61 6e 67 65 53 74 | 61 74 75 73 20 65 6d 70 |changeSt|atus emp|
|00005e60| 74 79 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 63 6c |ty.end i|f.end cl|
|00005e70| 6f 73 65 43 61 72 64 0d | 0d 0d 6f 6e 20 50 72 65 |oseCard.|..on Pre|
|00005e80| 76 4d 65 73 67 0d 69 66 | 20 74 68 65 20 73 68 6f |vMesg.if| the sho|
|00005e90| 72 74 20 6e 61 6d 65 20 | 6f 66 20 70 72 65 76 20 |rt name |of prev |
|00005ea0| 63 61 72 64 20 69 73 20 | 22 52 65 61 64 4e 65 77 |card is |"ReadNew|
|00005eb0| 73 22 20 74 68 65 6e 0d | 62 65 65 70 0d 65 6c 73 |s" then.|beep.els|
|00005ec0| 65 0d 76 69 73 75 61 6c | 20 65 66 66 65 63 74 20 |e.visual| effect |
|00005ed0| 77 69 70 65 20 72 69 67 | 68 74 0d 67 6f 20 70 72 |wipe rig|ht.go pr|
|00005ee0| 65 76 20 63 61 72 64 0d | 65 6e 64 20 69 66 0d 65 |ev card.|end if.e|
|00005ef0| 6e 64 20 50 72 65 76 4d | 65 73 67 0d 0d 6f 6e 20 |nd PrevM|esg..on |
|00005f00| 4e 65 78 74 4d 65 73 67 | 0d 69 66 20 6e 75 6d 62 |NextMesg|.if numb|
|00005f10| 65 72 20 6f 66 20 74 68 | 69 73 20 63 61 72 64 20 |er of th|is card |
|00005f20| 69 73 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 61 73 |is numbe|r of las|
|00005f30| 74 20 63 61 72 64 20 69 | 6e 20 62 67 20 22 4d 65 |t card i|n bg "Me|
|00005f40| 73 73 61 67 65 73 22 20 | 74 68 65 6e 0d 62 65 65 |ssages" |then.bee|
|00005f50| 70 0d 65 6c 73 65 0d 76 | 69 73 75 61 6c 20 65 66 |p.else.v|isual ef|
|00005f60| 66 65 63 74 20 77 69 70 | 65 20 6c 65 66 74 0d 67 |fect wip|e left.g|
|00005f70| 6f 20 6e 65 78 74 20 63 | 61 72 64 0d 65 6e 64 20 |o next c|ard.end |
|00005f80| 69 66 0d 65 6e 64 20 4e | 65 78 74 4d 65 73 67 0d |if.end N|extMesg.|
|00005f90| 0d 0d 6f 6e 20 64 69 73 | 63 61 72 64 4d 65 0d 67 |..on dis|cardMe.g|
|00005fa0| 6c 6f 62 61 6c 20 71 75 | 69 74 74 69 6e 67 0d 69 |lobal qu|itting.i|
|00005fb0| 66 20 71 75 69 74 74 69 | 6e 67 20 69 73 20 6e 6f |f quitti|ng is no|
|00005fc0| 74 20 74 72 75 65 20 74 | 68 65 6e 0d 69 66 20 62 |t true t|hen.if b|
|00005fd0| 67 20 66 6c 64 20 22 54 | 69 74 6c 65 22 20 69 73 |g fld "T|itle" is|
|00005fe0| 20 22 53 61 76 65 64 20 | 4d 65 73 73 61 67 65 22 | "Saved |Message"|
|00005ff0| 20 74 68 65 6e 0d 61 6e | 73 77 65 72 20 22 44 6f | then.an|swer "Do|
|00006000| 20 79 6f 75 20 72 65 61 | 6c 6c 79 20 77 61 6e 74 | you rea|lly want|
|00006010| 20 74 6f 20 64 69 73 63 | 61 72 64 20 74 68 69 73 | to disc|ard this|
|00006020| 20 6d 65 73 73 61 67 65 | 3f 22 20 77 69 74 68 20 | message|?" with |
|00006030| c2 0d 22 44 69 73 63 61 | 72 64 22 20 6f 72 20 22 |.."Disca|rd" or "|
|00006040| 43 61 6e 63 65 6c 22 0d | 65 6c 73 65 0d 61 6e 73 |Cancel".|else.ans|
|00006050| 77 65 72 20 22 44 6f 20 | 79 6f 75 20 72 65 61 6c |wer "Do |you real|
|00006060| 6c 79 20 77 61 6e 74 20 | 74 6f 20 64 69 73 63 61 |ly want |to disca|
|00006070| 72 64 20 74 68 69 73 20 | 6d 65 73 73 61 67 65 3f |rd this |message?|
|00006080| 22 20 77 69 74 68 20 c2 | 0d 22 53 61 76 65 20 66 |" with .|."Save f|
|00006090| 69 72 73 74 22 20 6f 72 | 20 22 44 69 73 63 61 72 |irst" or| "Discar|
|000060a0| 64 22 20 6f 72 20 22 43 | 61 6e 63 65 6c 22 0d 65 |d" or "C|ancel".e|
|000060b0| 6e 64 20 69 66 0d 69 66 | 20 69 74 20 69 73 20 22 |nd if.if| it is "|
|000060c0| 43 61 6e 63 65 6c 22 20 | 74 68 65 6e 0d 65 78 69 |Cancel" |then.exi|
|000060d0| 74 20 64 69 73 63 61 72 | 64 4d 65 0d 65 6c 73 65 |t discar|dMe.else|
|000060e0| 20 69 66 20 69 74 20 69 | 73 20 22 53 61 76 65 20 | if it i|s "Save |
|000060f0| 66 69 72 73 74 22 20 74 | 68 65 6e 0d 63 6c 69 63 |first" t|hen.clic|
|00006100| 6b 20 61 74 20 74 68 65 | 20 6c 6f 63 20 6f 66 20 |k at the| loc of |
|00006110| 62 67 20 62 74 6e 20 22 | 53 61 76 65 22 0d 65 6e |bg btn "|Save".en|
|00006120| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 70 75 74 20 |d if.end| if.put |
|00006130| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 74 68 |the numb|er of th|
|00006140| 69 73 20 63 61 72 64 20 | 69 6e 74 6f 20 6e 43 0d |is card |into nC.|
|00006150| 64 65 6c 65 74 65 20 6c | 69 6e 65 20 6e 43 20 2d |delete l|ine nC -|
|00006160| 20 33 20 6f 66 20 66 69 | 65 6c 64 20 22 49 6e 64 | 3 of fi|eld "Ind|
|00006170| 65 78 22 20 6f 66 20 63 | 61 72 64 20 22 4d 65 73 |ex" of c|ard "Mes|
|00006180| 73 61 67 65 49 6e 64 65 | 78 22 0d 6c 6f 63 6b 20 |sageInde|x".lock |
|00006190| 73 63 72 65 65 6e 0d 73 | 65 6e 64 20 22 64 6f 4d |screen.s|end "doM|
|000061a0| 65 6e 75 20 44 65 6c 65 | 74 65 20 43 61 72 64 22 |enu Dele|te Card"|
|000061b0| 20 74 6f 20 48 79 70 65 | 72 43 61 72 64 0d 69 66 | to Hype|rCard.if|
|000061c0| 20 74 68 65 20 73 68 6f | 72 74 20 6e 61 6d 65 20 | the sho|rt name |
|000061d0| 6f 66 20 70 72 65 76 20 | 63 61 72 64 20 69 73 20 |of prev |card is |
|000061e0| 22 52 65 61 64 4e 65 77 | 73 22 20 74 68 65 6e 0d |"ReadNew|s" then.|
|000061f0| 67 6f 20 63 61 72 64 20 | 22 53 65 6e 64 4d 61 69 |go card |"SendMai|
|00006200| 6c 22 0d 65 6e 64 20 69 | 66 0d 75 6e 6c 6f 63 6b |l".end i|f.unlock|
|00006210| 20 73 63 72 65 65 6e 0d | 65 6e 64 20 64 69 73 63 | screen.|end disc|
|00006220| 61 72 64 4d 65 0d 0d 0d | 6f 6e 20 63 68 61 6e 67 |ardMe...|on chang|
|00006230| 65 53 74 61 74 75 73 20 | 73 0d 69 66 20 73 20 69 |eStatus |s.if s i|
|00006240| 73 20 22 4e 22 20 74 68 | 65 6e 20 67 65 74 20 22 |s "N" th|en get "|
|00006250| 4e 65 77 20 4d 65 73 73 | 61 67 65 22 0d 65 6c 73 |New Mess|age".els|
|00006260| 65 20 69 66 20 73 20 69 | 73 20 22 53 22 20 74 68 |e if s i|s "S" th|
|00006270| 65 6e 20 67 65 74 20 22 | 53 61 76 65 64 20 4d 65 |en get "|Saved Me|
|00006280| 73 73 61 67 65 22 0d 65 | 6c 73 65 20 67 65 74 20 |ssage".e|lse get |
|00006290| 22 4d 65 73 73 61 67 65 | 22 0d 70 75 74 20 69 74 |"Message|".put it|
|000062a0| 20 69 6e 74 6f 20 66 69 | 65 6c 64 20 22 54 69 74 | into fi|eld "Tit|
|000062b0| 6c 65 22 0d 70 75 74 20 | 74 68 65 20 6e 75 6d 62 |le".put |the numb|
|000062c0| 65 72 20 6f 66 20 74 68 | 69 73 20 63 61 72 64 20 |er of th|is card |
|000062d0| 69 6e 74 6f 20 6e 0d 73 | 65 6e 64 20 22 73 65 74 |into n.s|end "set|
|000062e0| 53 74 61 74 75 73 20 6e | 2c 73 22 20 74 6f 20 63 |Status n|,s" to c|
|000062f0| 61 72 64 20 22 4d 65 73 | 73 61 67 65 49 6e 64 65 |ard "Mes|sageInde|
|00006300| 78 22 0d 65 6e 64 20 63 | 68 61 6e 67 65 53 74 61 |x".end c|hangeSta|
|00006310| 74 75 73 0d 0d 6f 6e 20 | 61 72 72 6f 77 4b 65 79 |tus..on |arrowKey|
|00006320| 20 64 69 72 0d 69 66 20 | 74 68 65 20 6f 70 74 69 | dir.if |the opti|
|00006330| 6f 6e 4b 65 79 20 69 73 | 20 64 6f 77 6e 20 74 68 |onKey is| down th|
|00006340| 65 6e 20 70 61 73 73 20 | 61 72 72 6f 77 4b 65 79 |en pass |arrowKey|
|00006350| 0d 69 66 20 64 69 72 20 | 69 73 20 22 6c 65 66 74 |.if dir |is "left|
|00006360| 22 20 74 68 65 6e 20 63 | 6c 69 63 6b 20 61 74 20 |" then c|lick at |
|00006370| 6c 6f 63 20 6f 66 20 62 | 67 20 62 75 74 74 6f 6e |loc of b|g button|
|00006380| 20 22 50 72 65 76 4d 65 | 73 67 22 0d 65 6c 73 65 | "PrevMe|sg".else|
|00006390| 20 69 66 20 64 69 72 20 | 69 73 20 22 72 69 67 68 | if dir |is "righ|
|000063a0| 74 22 20 74 68 65 6e 20 | 63 6c 69 63 6b 20 61 74 |t" then |click at|
|000063b0| 20 6c 6f 63 20 6f 66 20 | 62 67 20 62 75 74 74 6f | loc of |bg butto|
|000063c0| 6e 20 22 4e 65 78 74 4d | 65 73 67 22 0d 65 6c 73 |n "NextM|esg".els|
|000063d0| 65 20 70 61 73 73 20 61 | 72 72 6f 77 4b 65 79 0d |e pass a|rrowKey.|
|000063e0| 65 6e 64 20 61 72 72 6f | 77 4b 65 79 0d 0d 0d 6f |end arro|wKey...o|
|000063f0| 6e 20 70 61 63 6b 48 65 | 61 64 65 72 20 61 73 4e |n packHe|ader asN|
+--------+-------------------------+-------------------------+--------+--------+